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Foreword 


CP/M-g000" is a single-user general purpose operating system. It is 
dsesigned for use with any disk-based computer using a 
Zilog® Z8000™ or compatible processor. CP/M-8000 is modular in 
design, and can be modified to suit the needs of a particular 
installation. 


The hardware interface for a particular hardware environment is 
supported by the OEM or CP/M-8000 distributor. Digital 
Research® supports the user interface to CP/M~8000 as documented in 
the CP/M-8000 Operating System User's Guide. Digital Research does 
not support any additions or modifications made to CP/M-8000 by the 
QEM or distributor. 


Purpose ami Audience 


This manual is intended to provide the information needed by a 
systems programmer in adapting CP/M-8000 to a particular hardware 
anvironmeant. A substantial degqree of programming expertise is 
assumed on the part of the reader, and it is not expected that 
typical users of CB/M-8000 will need or want to read this manual. 


Prerequisites and Related Publications 


In addition to this manual, the reader should be familiar with the 
architecture of the Ziloy 28000 as described in the Zil L6—81t 
the CIRCUS 


Microprocessor User's Manual (third edition), 
Operating Systam User’ 3 Guida, the ce /M~8000 Operating System 
} a and, © @ details of the hardware 


Programmer $ Guide, courge, th 
anvironment whera CP/M-8000 is to be implamented. Further 


information on assembly Language programming for the 28000 may be 
found in Programming the 28000, by Richard Mateosial, Sybex, 1980. 


Bow This Book is Organized 


Section L presents an overview of CP/M-8000 and describes its major 
Components. Section 2 discusses the adaptation of CP/M-8000 for 
your specific hardware system. Section 2 discusses sootstrap 
orocedures and related information. Section 4+ describes aach 3105 
‘funetion including entry parameters and return values. Section 5 
describes the process of creating a BI0S for a custom hardware 
interface. Section 6 discusses how to get CP/M® working for the 
first time on a new hardware environment. Section 7 provides 
information on using the distributad version of CP/M+8000. Section 
8 describes the PUTBOOT utility, which generates a bootable disk. 


bid 


Appendix A describes the contents of the cp/mM-8000 distribution 
a.sks. Appendix B is a listing of the normal and boot BIOS's, 
conditionally compiled. Appendix C contains a listing of the 
PUTBOOT utility program. 
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System Overview 


1.1 Introduction - 


CP/M-8000 is a single-user, general purpose operating system for 
microcomputers based on the Zilog 28000 or equivalent microprocessor 
ehip. Tt is designed to be adaptable to almost any hardware 
environment, and can be readily customized for particular hardware 
systens. 


CP/M-8000 is equivalent to other CP/M Systems with changes dictated 
by the 28000 architecture. [In particular, CP/M-8000 supports the 
very large segmented address space of the Z8000 family. 


The CP /M-8000 file system is upwardly, compatible with CP/M- 
80" Version 2.2, CP/M-86™ Version :l.l, and C?/M<48K™ Version 1.2. 
The CP/M-8000 file structure allows files of up to 32 Megabytes gec 
file. |.CP/M-8000 supports from one. te aiacaen: Gdisk. drives with as. 
many as $12 megabytes ser drive. oe ooo! 


The entice: CP/M-2000. operating system. “gesides in its own memory 
‘gegment at all times, and is not reloaded at a wacm start. CP/M- 
$000 can be configured to reside in any portion of memory. The 
cemainder ‘af the qddress space is available for applications 
Stegrans j. wand is called the transient program area, TPA, the TPA is 
assumad to consist of one or. more complece (64 Kbyte) memory 
segments. CP/M~8000 supports both segmented and non-segmented user 
programs, and supports the the splitting of user program and data 
into separate addressing spaces. 


Several. terms used throughout this manual are defined in Table l-1L. 


able l-L.  cb/4-8000 Terns 














| Meaning 

nibble s=bit half-oyte —_ | 
oyte 8-olt value | 
word L6—bit value | 
Longword 32-o0it value | 
address 32-bit identifier of a storage 
location 

physical address address of a location :n ohysicail | 
| 


memory 








rm 
‘ 
rm 
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logical address 


‘system mode 


normal mode 


offset 


text segment 
data segment 
block storage 
segment (28001) 


segmented mode 


non~segmented 
mode 


absolute 


relocatable 


Svstem Guide 


Table 1-1. 


; 
Term | Meaning 
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(continued) 





address as issued by a program, 
possibly requiring translation into 
a physical address. 


a program running in system mode can 
execute all instructions, including 
I/O instructions and instructions to 
change the contents of special 
control registers 


programs running in normal mode are 
prevented from executing the so- 
called privileged instructions 


a valve defining an address in 

torage;: a Zixed displacement from a 
base address. For example, the base 
address of seqment AH with an offset 
of 80008 provides a physical address 
of OA0O080008. 


program section containing machine 
instructions 


program section containing 
initialized data 


program section containing 
uninitialized data 


set of adjacent memory addresses (up 
co 64K) with the same segment number 


cunmning~state of she seamented CPU in 
which addresses can have different 
segment members 


running=state of the 28000 CPU's. All 
addresses generated by segmented 
CPU's in this mode have the same 
segment number 


“ @escribes a program that must reside 


at a fixed memory address. 


describes a program which includes 
relocation information so it can be 
loaded into memory at any address 


| 
| 
| 
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The CP/M-8000 programming model is described in detail in the CP/M~ 
8000 Operating System Programmer's Guide. After CP/M-a8000° ig 
Oa in memory, the remaining segments of address space that are 
not occupied by the operating system are called the Transient 
Program Area (TPA). To summarize this programming model briefly, 
CP/M-8CU0 supports the following memory segments that are not 
eoccupial by the operating system: a user stack, a base page and the 
three program seqments. These thres program segments consist of a 
text segment, an initialized data segment , and a block storage 
segment (bss). When a program is loaded, CP/M-8000 allocates space 
for these program segments in the TPA. The 8DOS Program Load 
Function (59) loads a transient program in the TPA. If memory 
locations are not specified when the transient program ia linked, 
the program is loaded in the TPA as shown in Figure 1-1. 


High a High 


Meno Memory 
ry —- ood 
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(System Address Space). . (Normal Address Space) 


Figure L-i. cp/'M~g000 Default Memory Model 
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Wnen a transient program is loaded it may be run in segmented ar 
ncn-segmented mode and the address of the transient program (TPA) 
may be a segmented or non-segmentec space. If the TPA is non- 
segmented it may combine or separate code and data, depending upon 
she linker options used to link the program and tne space 
requirements of the transient program. Non-segmented transient 
programs may be run either ina single TPA segment space or ina 
seqment space split into two spaces: one for instructions and one 
=or data (called split I and D space). The Memory Region Table will 
aecide in which physical segments to run the non-segmented program. 
Lf the program is to run with split instruction and data spaces, two 
mnysical segments are required (with the data, bss, and stack in the 
same physical segment), otherwise only a single physical segment is 
used. All addresses generated by a non-segmented transient program 
will have the same segment number. 


A program running in segmented mode will be loaded into a segmented 
“DA in which addresses can have different segment numbers. This 
allows segmented vcrograms to use any segment of the TPA, as 
specified in their object files. A segmentec program requires che 
Allocation of physical address segments to logical address segments, 
and this is accomplished during link time. 


1.2 CP/M-8000 Organization 


<Pp/M-8000 comprises three system modules: the Console Command 
Processor (CCP), the Basic Disk Operating System (BDOS), and the 
Basic Input/Output System (BIOS). These modules are linked together 
=o form the operating system. They are discussed individually in 
ails section. 


1.2 Memory Layout 


The CP/M-8000 operating system can reside anywhere in memory. The 
Location of CP/M-8000 is defined during system generation. Typically 
-he svstem occupies a segment which is logically separated “rom the 
T2RK. See previous Figure 1-1 for an illustration of a logical 
secment separation of the system and the TPA. 


The TPA for non-segmented programs consists of one to two 64 Kbyte 
segments, one for program code and one for data. Some programs 
axpect program code and data to be mixed in one segment. The segment 
in wnich such programs are run may be the same as or different from 
the segments that contain programs with separated program code ‘and 
data. The TPA for segmented programs consists of up to 128 segments. 


CP/M-8000 System Guide 1.3 Memory Layout 


The mapping of logical addresses (which consist of a 7=bit segment 
number and a l6é<bit offset within a segment) into physical addredses 
ia done by system—specific hardware, and the BIOS contains memory 
management operations to map addressas and copy blocks of memory. 
The two functions for map addressing and to copy blocks of memory 
are map adr and memcpy. The function map_adr translates lLogicai 
addresses: into ‘physical addresses and mem copy copies a specified 
‘number of: bytes from one physical address to another. 


See Pigure i=l (CP/M-8000 Memory Model). gfor a discussion of the 
C7/M-8000 memory structure. In this memory model, the CP/M-3000 
operating system resides in the System Memory and is the system 
address space (system operating mode). The system address space 
combines code and data, since there is no need for the extra space 
provided by code/data separation. The usac task has a Transient 
Program Area (TPA) which resides in the normal address space (normal 
i tepigi mode). The TPA may he segmentad or non~-segmented. The Sage 
Page is. in ‘the. highest part of data. space and the user gtack is just 
below te in“data space. 

As ‘discussed earlier, memory Locations are addressed by a sa@ven-odit 
Segment: number ‘and 4 sixteen-bit offset Within the segment. This is 
not a lingar but a two-dimensional space, capable of addressing 8 
megabytes. Moreover, the System and Normal operating modes can have 
separate: address spaces, so that a total of (16. megabytes of physical 
‘ftemory an. supported. 


| Processor ‘ogpy 





the Console Command Processor, (ee) provides. ‘the usar interface to 
CP/M~8000. ~ Tt uses the §DOS to rcead user comands and load 
programs, and provides several built-in user commands. [ft also 
provides parsing of command ‘Lines entered at. the. console. 





ks x pecating 5 Syaten (008), 


The Basic Qisk- ‘Operating System ‘(aoos)- ‘provides: “operating . system 
servicer: ‘spplications ptograms and to the CCP. These include 
character. 1/0, disk file I/O (the BDOS disk 1/9 operations comprise 
the CP/M BONO. file: system), program . loading, ‘and others. 


} 
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L.6 Basic I/O System (BIOS) 


Tne Basic Input Output System (BIOS) is the interface between CP/M- 
300C and its hardware environment. All physical input and output is 
done by the BIOS. It includes all physical device drivers, tables 
defining disk characteristics, and other hardware specific functions 
ang tables. The CCP and BDOS do not change for different hardware 
anvironments because all hardware dependencies have been 
moncentrated in the BIOS. Each hardware configuration needs its own 
BIOS. Section 4 describes the BLOS functions in detail. Section 5 
discusses how to write a custom BIOS. A sample BIOS is presented in 
Appendix 8. 


L.7 I/O Devices 


m2 /M=8000 recognizes two basic types of I/O devices: character 
devices and disk drives. Character devices are devices that handle 
one character at a time. Disk devices handle data in units of 128 
ovtes., called sectors, and provide a large number of sectors which 


san be accessed in random, nonsequential, rder. In fact, real 
systems might have devices with cnaracteristics different from 
these. It is the BIOS's responsibility to resolve differences 


between the logical device models and the actual physical devices 


L.?7.1 Character Devices 


“naracter devices are input/output devices which accept or supply 
streams of ASCII characters to the computer. Typical character 
devices are consoles, printers, and modems. In CP/M-8000. operations 
on character devices are done one character at a time. A character 
input device sends ASCII CTRL-Z (1AH) to indicate end-of-file. 


1.7.2_ Disk Devices 


Disk devices are used for file storage. They are organized into 
sectors and tracks. Each sector contains 128 bytes of data. If 
sector sizes other than 128 bytes are used on the actual disk, then 
the BIOS must do a logical-to-physical mapping to simulate 128—byte 
sectors to the rest of the system. All disk I/O in CP/M-8000 is 
done in one-sector units. A track is a group of sectors. The 
number of sectors on a track is a constant depending on the 
particular device. The characteristics of a disk device are 
specified in the Disk Parameter Block for that device. (See 
Section 5.) . 

To locate a particular sector, the disk, track number, and sector 
number must all be specified. 
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1.8 System Generation and Cold Start Operation 


Generating a CP/M-8000 system is done by linking together the CCP, 
BDOS, and BIOS to create a file called CPM.SYS, which is the 
operating systen. Section 2 discusses how to create CP™.SYS. 
CPM.SYS is brought into memory by a bootstrap loader, which 
typically resides on the first two tracks of a system disk. The 
term system disk as used here means a disk with the file CPM.SYS and 
& bootstrap leader, CPMLOR.SYS on the system tracks. Section 3 
discusses the creation of a bootstrap loader. 


End of Section 1 


Section 2 
System Generation 


2.1 Overview 


This section describes how to build a custom version of CP/M-8000 by 
combining your BIOS with the CCP and BDOS supplied by Digital 
Research to obtain a CP/M-8000 operating system suitable for your 
specific hardware system. Section 5 describes how to create a BIOS. 


In this section, we assume that you have access to an already 
configured and executable CP/M-8000 system. If you do not, you 
should firat craad Section 6, which discusses how you can make your 
first CP/M-8000 system work. 


- A CB/M-@000 operating system is generated by using the linker, LDSK. 
to link .tegather the system modules (CCP, BDOS, and BIOS) and bind 
the. system to an absoluts aemory Location. The resulting file is the 
- configured Operating ‘system. is ia named CPM.SYS. 
ae 2 Creating CPM. S73 | 
ome cP and anos for’ cp/u-so00: are distributad in a relocatable 
< object code file named COM@YS.REL. You must link your BIOS with 
“SCPMSYS «REL using the following: command : ; 

ALDER -W -O CPM.STS. ‘BYOS.ARL CPMSYS.REL -1CPM 
where gros. REL is the compiled or agsembled BSIOS. This creates 
cm. SYS. which is. an apsolute. version ef your syste. 


23 Relocating Ceilities | 





 giaee che cilities ail run ‘in:  aon-sequented node, they do not need. 
. €@ be telocatad: they will run in whatever segments you have 
@e@pigned fer the TPA. Nota that the compiler and linker require 
' @apazvate code and data segments: all other utilities supplied with 
the system will run with nonsplit instruction and data segments when 
linked without the "<i" option of the linker. 


. End of Section 2 


Section 3 
Bootstrap Procedures 


\ Hootserap Leading is the Ps shane « of bringing the ce /M-8000 operating 
system into memory and passing control to it, Bootstrap loading is 
. Aacessarily hardware-dupendant, and itis not. possible tc discuss 
all. possible variations in this wantial. ‘However, the manual 
presents a wnodel of bootstrapping that is applicable to many 
systems, and particularly: a ‘the ‘Olivectis mo" ” 





The model of, ‘heotatrappiag: hat wa present assumes that the CP/M- 
8000. opetating: system is. fe be ‘Loaded into menory from a disk in 
Which the first 4 a ¢ rst. “wed ate teserved 





















s the £3: rie! eOnsisting of a directory and 
, “topic ‘of disk organization and. ‘parameters is 


disk “files. 
nm our model, Chie .CF/M-8000 operating 





: ‘systen resi ! 
2), and the. 


‘ap loader. program 
tenesel es? ¥ 


and - transfer 





When you press: tease . a monitor 
“ROM, the hardware. ‘Loads: ‘one. or: ‘wore sectors. be inning at track 
0, sector 1, inta: memory ata _predetergined idress, and then 
oe jumps £9 (that address: 









CPMLDR) into another. ‘predetermined a address in. memory. and then 
jumps to that addrees. Note that if ‘your hardware is smart 
enough, steps 1 and. 2 can ae combined © into: ‘one atap. 


3. The code loaded in stap 2, which is now: executing, is the CP/M 
Cald Boot Loader, CPMLOR, which is an abbreviatad version of 
CP/M-8000 itself. CPMLDR now finds the file CPM.SYS, loads it, 
and jumpa to it. A&A copy of CPM.SYS isa now in memory, 
executing. This complates the bootstrapping process. 


=> -/M-8000 System Guide 3.1. Bootstrapping Overview 


5 order to create a CP/M-8000 diskette that can de booted, vou need 
=> “now Now to create CPM.SYS (see Section 2.2), how to create the 
Sold Boot Loader, CPMLDR, and how to put CPMLDR onto your system 
“racks. You must also understand your hardware enough to be able to 
dasign a method for bringing CPMLDR into memory and executing it. 


iors 


a 


3.2 Creating the Cold Boot Loader 


CPMLDR iS a miniature version of CPM.SYS. It contains stripped 
varsions of the .BDOS and BIOS, with only those functions which are 
seeded to open the CPM.SYS file and read it into memory. CPMLDR 
xists in at least two forms; one form is the information in the 


¢ 


a 
2 
system tracks, the other is a file named CPMLOR.SYS, which is 
created by the linker. The term CPMLDR is used to refer to either 
of these forms, but CPMLDR.SYS only refers to the file. 
CPMLDR.SYS is generated using a procedure similar to that used in 
generating CPM.SYS. That is, a loader BIOS is linked with a loader 
svstem library, named CPMLDR.REL, to produce CPMLDR.SYS. Additional 
modules can be Linked in as required by vour hardware. The 
resulting file is then loaded onto the system tracks using the 
PUTBOOT utility program. 


To perform the Link and load, enter the following command Line: 


A> LD8EK -W ~O CPMLDR.SYS LDRBIOS.REL CPMLDR.REL -1CPM 


3.2.1 Writing a Loader BIOS 


The loader BIOS is very similar to your ordinary BIOS; it just has 
Sewer functions, and the entry convention is slightly different. 
The following is a list of the differences. 


rr 


. Only one disk needs to be supported. The loader system selects 
only drive A. If you want to boot from a drive other than A, 
your loader BIOS should be written to select that other drive 
when it receives a request to select drive A. 


2. The loader BIOS is not called through a trap; the loader BDOS 
calls an entry point named bios instead. The parameters are 
Still passed in registers, Just as in the normal BIOS. Thus, 
your Funetion 0 does not need to initialize a trap, the code 
that in a normal BIOS is the Trap 3 handler should have the 
label _bios, and you exit from your loader BIOS with an RET 
instruction. 
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3. Only the following BIOS functions need to be implemented: 

Q (Imit) Called just once, should initialize hardware as 
necessary, no return value necessary. Nete that Function 
0 is called via the bios label with the function cunber 
equal ta 0. You do not need a separate _imit entry point. 

4 (Conout) Used to. print error messages during boot. If you 
- do not want error nessages, this function should just be an 
RET instruction. 

9 (Seldsk) Called just once, to select drive A. 

10 (Settrk) 

ll (Setsec) 

12 (Setdma) = 

13 (Read) 

16 (Sectran) 


"18 (Get MRT) Mot: ‘yeed now, but might be used in future 
releases. oe 





22 (see exception) 


he You ao mot - ‘need to. ine lude an allocation vector or a check 
, -veetor, and the Disk Parameter Header values that point to 
‘these. can be anything. However, you still need a Oisk 
- Paraneter ‘Header, Disk Parameter Block. and directory buffer. 


> tt te possible to use the: same source code for both your norm 8Los 
apd your loader 3I0S if you use conditional compilation or assembly 
89 distinguish the wo. Appendix 8 provides” an exarple of 


eaots tional, ‘compilation. 


3.2.2 pai.iding CPMLDR. SYS 


Once you have writtan and compiled (or assembled) a loader 8I0S, you 
can build CPMLOR.SYS in a manner very similar to building CPM.SYS. 
There is one additional complication here: the result of this step 
is placed on the system tracks. So, if you need a small prebocoter 
to bring in the bulk of CPMLDR. the prebooter must also be included 
in the link you are about to do. The details of what must be done 
are hardware dependent, but the following example should help to 
clarify the concepts involved. 
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Sutpose that your hardware reads track 0, sector 1, into memory at 
Location <<B>>400H when reset is pressed, then jumps to 4008. Then 
vour boot disk must have a small program in that sector that can 
load the rest of the system tracks into memory and execute the code 
“hat they contain. Suppose that you have written such a program, 
assembled it, and the assembler output is in BOOT.O. Also assume 
that your loader BIOS object code is in the file LDRBIOS.REL. Then 
the following command links together the code that must go on che 
svetem tracks. . 


A>LD8K -W -—O CPMLDR.SYS BOOT.O LDRBIOS.REL CPMLDR.REL ~-/CPM 


Once you have created CPMLDR.SYS in this way, you can use the 
PUTBOOT utility to place it on the system tracks. PUTBOOT is 
described in Section 8. The command to place CPMLDR on the system 
tracks of drive A is 


A>PUTBOOT CPMLDR.SYS A: 


PUTSOOT reads the ‘ile CPMLDR.SYS and puts the result on the 
specified drive. After you have copiec CPM.SYS to che disk, you can 
boot from it. 


3.3 Introduction to the CP/#-8000 Target Machine 


This section presents the Olivetti M20 as a specific microcomputer 
moiel chosen to implement the CP/M-8000 operating system. The 

ifference between the M20 model and the generic model is the 
pootstrapping loader placement. 


The Olivetti M20 uses the Zilog 28001 microprocesor and is capable 
of supporting up to 512K bytes of physical memory. The standard 
configuration of the M20 includes a monochrome, bit-mapped display 
screen and two built-in 5 1/4 inch floppy disk drives with a 
capacity of 320K bytes each. Optionally, one of the floppy disk 
drives can be replaced by a dDuilt-in hard disk drive with 8 
megabytes of storage. The M20 also has a serial port, which may be 
atcached to a line printer or to another computer. 
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3.3.1 M20 Memory architecture 


whan implementing.or porting over the CP/M-8000 operating system to 
“the Olivetti M20, the memory architecture of the M20 requires 
particular: attention. Physical memory in the M20 is configured in 
of ‘16K. ‘bytes each. The mapping between segmented addresses and 
‘physical memory ‘Banks {s done through a ROM, and thus is not 
programmable’ by the user. The M20 contains a memory map for a 
gonfiguration with 256K bytes and a monechroth#display. One 16K 
bank is set aside for the bit-mapped display. This memory is 
a@Aceased as aeqment 3. Segment 4 addresses the bootstrap ROM, and 
‘Segment 2 is used as RAM by the ROM. The rest of memory is available 
‘for program use. Note that the same banks of physical memory can be 
‘addressed in.various ways. For instance, segment 8 has a separated 
gode and data space. Segment 10 has a combined code and data space, 
‘whose physical. memory 4a the same as the ‘Segment 8 code space 
physical memocy . "4 i” 
















. tic : e. cp/m-soog. ‘operating system ‘peaides in 

n-seqmented user programs are loaded into segment § if 
arate. Bode. and data, oc into segment 10 if they use 
2 2 dant | Ant aipree describing ‘the. type of 
he 















: a: i. “his. ‘own drivers or. ‘use the drivers 
“pee ov ided 20 200° BIOSTO: module invokes the segmented . 
cagvessing” ace atte eh allot memory ig addressable. ‘The - 
‘BIOSTO module then ais "ROM drivers ind: rectly through a branch 
chable which resides at a. Eixed | location in the ROM. This feature 
makes it ‘unhetesaary to change the CP/M—8000 | ‘BIOSTIO module to 
operate compatinly with” any future versions of the Olivetti ROM. 
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3.3.4 Addressing the Screen Bit Map 


Graphics programs may be implemented easily using the SC #1 memory 
management primitives. The user program builds an image of the bit 
map in a i6K buffer of its own. The user program then calls mem_cpy 
to copy that buffer to segment 3, locations 0 through 16383. 
Alternatively, a user program can invoke the segmented addressing 
mode by executing a _map_adr system call. The program then will 
address the bit map memory directly. The programmer should be aware 
shat entering segmented mode has side effects for which the user 
program must compensate. 


End of Section 3 


Section 4 
BIOS Functions 


4.1 Introduction 


All CP/M-8000 hardware dependencies are concentrated in subroutines 
that are collectively referred to as the Basic I/O System (BIOS). A 
CP/M-8000 system implementor can tailor CP/M-8000 to fit nearly any 
28000 operating environment. This section describes each BIOS 
function: its calling conventions, parameters, and the actions it 
must perform. The discussion of Disk Definition Tables is treated 
separately in gection 5. 


. When the 8D0S calls a BIOS function, it places the function number 
in register R3, and function parameters in cegisters RR¢ and RAG. 


[Zt then executes 4. .3C. 43 instruction. R3 is always needed to 


-.$peeify the funetion,. ‘but: @agh function has its own requirements for. 
, Q@ther parameters. Specific parameter cequirements are provided in- 
> the. deacription of gach function. The BIOS uses RR6 to return any. 
“@alues to the caller. The size of the returned value depends on the 
Qarticular BIOS function. Byte values contained in word or long- 
word length fegisters. are Add padded. 


Mates The. system ‘call ‘handler. in the BIOS must preserve at least 
cl pgegisters 88 through RLS. The handlers provided in most BIOS's 


preserve all registers, except for RR6 which is used to ceturn 
“-gesults. Of course, if the BIOS uses interrupts to service I/O, the 


interrupt handlers will need to preserve cegisters. 


‘Table 4-1 summarizes Bros register usage. 


User. applications. typically do not need to make direct use of BIOS 


_functions.:‘Rewever, when access to the BIOS is requicead by user 


-goftware, ite ‘Should use: -khe 8DOS Direct 8IOS Function, Call 50, 


instead of. @alling the BIOS with a SC #3 instruction. ‘This rule 
ensures that applications remain compatible with future systems. 


‘The BIOS must also maintain a vector of Exception Handler addresses, 


‘through which all system calls and traps are routed. The vector 
numbers have been selected to match the exception used in CP/M-68K. 
These numbers will be found in the Programmer's Guide. 


Section 4.2 describes the systam calls for 28000 memory management. 


The Disk Parameter Header (DPH} and Disk Parameter Block (DPB) 
formats have changed slightly from previous CP/M versions to 
accommodate the 28000's 32-bit addresses. The formats are described 
in Section 5. 
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Table 4-1. BIOS Register Usage 










Entry Parameters: 


function code 
first parameter 
second parameter 


8 


Return Values: 
a ns 
RL7 = byte values (8 bits) 
R7 = word values (16 bits) 
RR6 * longword values (32 bits) 


Te decimal BIOS function numbers and the functions they correspond 
=o are listed in Table 4-2. 


Table 4-2. BIOS Punctions 











Funeztion 
8) Initialization (called for cold boot) 
1 Warm Boot (called for warm start) 


| 2 Console Status (check for console 
| character ready) 
t 
| 


auxiliary output device} 


3 Read Console Character In 
4 Write Console Character Out 
: 5 List (write listing character out) 
: 6 Auxiliary Output (write character to 


7 Auxiliary Input (read from auxiliary 


input) 
8 Home (move to track 00) 
9 Select Disk Drive 
10 Set Track Number 
il Set Sector Number 





testa 
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Table 4-2. (continued) 


Funetion | 
Set OMA Address : 




















13 Read Selected Sector 

14 Writes Selected Sector 

15 Return List Status 

16 Sector Translate 

18 Get Memory Region Table Address 
19 Get I/O Mapping Byte 

20 Set I/O Mapping Byte 

al Flush Buffers 


Set Exception Handler Address 
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FUNCTION 0: INITIALIZATION 


Entry Parameters: 
Register R3: 008 


Returned Value: 
Register R7: User/Disk Numbers 


B"OS Function 0 executes the cold bootstrap sequence and initializes 
the BIOS. Unlike other BIOS functions, this funccion is not invoked 
with an SC #3 instruction. Instead, a jump to the "entry:" label in 
the biosboot module invokes this function to execute. The biosboot 
module sets up the PSA system segment and system stack pointer, then 
jumps to the to a location Labeled "bios" to invoke this function. 


Pinction 0 calls _trapinit and _biosinit to enable the BIOS. The 
_irapinit routine initializes the trap handler table. The biosinit 
To5utine initializes the hardware and internal BIOS variables. 
Function 0 then transfers control to the CCP. 


inction 0 returns a longword value. The COP uses this value to set 
ne initial user number and the initial default disk drive. The 
aast significant byte of RR6 is the disk number (0 for drive A, l 
or drive B, and so on). The next most significant byte is the user 
number. The high-order bytes should be zero. 


The entry point to this function must be named bios and must be 
declared global. This function is called only once from the System 
at system initialization. 


For an example of bootstrap code, see =ne BIOSBOOT.8KN file on the 
distribution disk. 
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Function 1: Warm Boot 


FUNCTION 1: WARM BOOT 


Entry Parameters: 
Register R3: O18 


Returned Value: None 


This funetion 


is called whenever a program terminates. Some 
reinitialization of the hardware or software might occur. 


When this 
function completes, it jumps directly to the entry point of the CCP, 
named ccp. Note that cep must be declared as a global. 
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FUNCTION 2: CONSOLE STATUS 


Entry Parameters: 
Register R3: 02H 


Returned Value: 
Register R7: OOFFH if ready 
Register R7: OOOOH if not ready 


This funetion returns the status.of the currently assigned console 
device. It returns OOFFH in register R7 when a character is ready 


te be read, or OOOOH in register R7 when no console characters are 
ready. 
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FUNCTION 3: READ CONSOLE CHARACTER 


Entry Parameters: 
Register R3: 038 


Returned Value: 
Register R7: Character 


This function reads the next console character into register R7. Tf 
mo console character is ready, it waits until a character is typed 
before returning. 
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FUNCTION 4: WRITE CONSOLE CHARACTER 


Entry Parameters: 
Register R3: 04H 
Register R5: Character 


Returned Value: None 


This function sends the character from register RS to the console 
output device. The character is in ASCII. You might want to 
include a delay or filler characters for a line-feed or carriage 
return, if your console device requires some time interval at the 
end of the line (such as a TI Silent 700 Terminal™ ). You can also 


Silver out control characters that have undesirable effects on the 
censole device. 
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FUNCTION 5: LIST CHARACTER OUTPUT 


Entry Parameters: 
Register R3: O5H 
Registar RS: Character 


Returned Value: None 
This function sends an ASCII character from register RS to the 


currently assigned listing device. [If your list device requires 
some communication protocol, it must be handled here. 
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FUNCTION 6: AUXILIARY OUTPUT 


Entry Parameters: 
Register R3: 06H 
Register RS: Character 


Returned Value: None 


This function sends an ASCII character from register R5 to the 


currently assigned auxiliary output device. 
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FUNCTION 7: AUXILIARY INPUT 
Entry Parameters: 
Register R3: 07H 
Returned Value: 


Register R7: Character 


This function reads the next character from the currently assigned 
auxiliary input device into register R7. It reports an end-of-file 
condition by returning an ASCII CTRL-Z (1AH). 
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FUNCTION 8: HOME 


Entry Parameters: 
Register R3: O8H 


Returned Value: None 


Tis function returns the disk head of the currently selected disk 
to the track OO position. If your controller does not have a 
special feature for finding track 00, you can translate the call to 
a SETTRK function with a parameter of 0. 
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FUNCTION 9: SELECT DISK DRIVE 


Entry Parameters: 
Register R3: 098 
Register RS: Disk Drive 
7 Register R7: Logged=-in Flag 


Returned Value: 
Register RR6H: Address of Selected 
Drive's DPH 


This function selects the disk drive specified in register R5 for 
further operations. Register R5 contains 0 for drive A, 1 for drive 
B, up to 15 for drive P. 


On each disk select, this function ceturns the address of the 
selected drive's Disk Parameter Header in register RR6. See Section 
5 for a diseussion of the Disk Parameter Header. 


This function must return 000000008 in register RR6 if a nonexistent 
drive has been indicated in register RS. Although the function must 
return the header address on each call, it is advisable to postpone 
the actual physical disk salect operation until an I/O function 
(seek, read, oc write) is performed. Disk select operations can 
occur without a subsequent disk operation. Thus, doing a physical 
Salect each time this function is called may waste time. 


T£ the Least significant bit in cegister R7 is zero on entry to the 
Select Disk Orive function, the disk is not currently Logged in. Tf 
the disk drive is capable of handling varying media (such as single- 
and double-sided, single- and double-density disks), the 8IOS should 
check the type of media currently installed and then set up the Disk 
Parameter Block. 
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FUNCTION 10: SET TRACK NUMBER 


Entry Parameters: 
Register R3: OAH 
Register RS: Disk track number 


Returned Value: None 


This function specifies in register R5 the disk track number for use 
in subsequent disk accesses. The track mumber remains active until 
eitner another Function 10 or a Function 8 (Home) is performed. 


You can choose to physically seek to the selected track at this 
time, or delay the physical seek until the next read or write 
actually occurs. 


The “rack number can range from 0 to the Maximum track number 
supported by the physical drive. However, the maximum track number 
is Limited to 65535 by the fact that it is being passed as a 16-bit 
quantity. Standard floppy disks have cracks numbered from 0 to 76. 
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* 


FUNCTION 11: SET SECTOR NUMBER 


Entry Parameters: 
Ragister R3: OBH 
Register R5: Sector Number 


Returned Value: None 


This function specifies in register RS the sector number for 
subsequent disk accesses. This number remains active until Punction 
1l is called again. 


The function selects actual (unskewed) sector numbers. If skewing 
is appropriate, call Function 16 previous to calling Function ll. 


You can sand the sector number information to the controller after 
executing Function ll, or you may delay sector selection until a 
read or write operation occurs. 
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FUNCTION 12: SET DMA ADDRESS 


Entry Parameters: 
Register R3: OCH 
Recister RRS: DMA Address 


Returned Value: None 


Tris function contains the DMA (disk memory access) address in 
register RR4 for subsequent read or write operations. Note that the 
controller need not actually support direct memory access. The BIOS 
uses the 128-byte area starting at the selected DMA address for the 
memory buffer during the following read or write operations. This 
<unetion can be called with either an even or an odd address for a 
DMA buffer. 
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FUNCTION 13: READ SECTOR 


Entry farameters: 
Register R3: ODH 


Retugned Value: 
Register R7: 0 if no error 
Register R7: lL if physical error 


After the drive has been selected, the track has been set, the 
sector has been set, and the DMA address has been specified, the 
Read Sector Function uses these parameters to read one sactor and 
“returns the error code in register R7. 


Currently, GP/M-8000 responds only to a zero or nonzero return code 
value. If the value in register R7 is zero, CP/M-8000 assumes that 
the disk operation completed properly. If an error occurs, the 810S 
should attempt at laast ten retries to see if the error is 
recoverable. 
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FUNCTION 14: WRITE SECTOR 


Entry Parameters: 
Register R3: OEH 
Register RS: Omnormal write 
imwrite to a directory 
sector 
2™write to first sector 
' of new block 


Returned Value: 


Register R7?: Ono arror 
l=sphysical error 


function is used to write l28=pyte data blocks from the 


This 
currently selected DMA buffer to the currently selected sector, 
track, and disk. The value in register RS indicates whether the 


2te@ lS an ordinary write operation or whether there are special 
considerations. 


If register R580, this is an ordinary write operation. If RS#1, 
this 18 a write to a directory sector, and the write should be 
physically completed immediately. I£ R5=s2, this is a write to the 
first sector of a newly allocated block of the disk. The 
Significance of this value is discussed in Section 5 under Disk 
Bulttering. 
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FUNCTION 15: 


Entry Parameters: 
Register R3: 


Returned Value: 
Register R7: 
Register R7: 


Function 15: Return List Status 


RETURN LIST STATUS 


OFH 


OOPFH=device ready 
O000H=device not ready 


This function returns the status of the list device. Register R7 
can contain QO00H to indicate that the list device is not ready to 
accept a character, or OOFFH to indicate that the list device is 


ready. 
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FUNCTION 16: SECTOR TRANSLATE 


Entry Parameters: 
Register R3: 108 
Register R5: Logical Sector Number 
Register RR6: Address of Translate 
Table 


Returned Value: 
Register R7: Physical Sector Number 


This function performs logical-to-physical sector translation, as 
Giscussed in Section 5.2.2. The Sector Translate function receives 
a logical sector number from register RS. The logical sector number 
can range from 0 to the number of sectors per track minus one. 
Function 16 also receives the address of the translate table in 
register RR6. This address must be in the system's address space. 
The logical sector number is used as an index into the translate 
taoie. The resulting physical sector number is returned in R7. 


il zsegister RR6 = OOOOOQOOOH, indicating that there is no translate 
saole, register RS is copied to ragister R7 before Function 16 
recurns. Note that other algorithms are possible: in particulars, it 
1s common to increment the logical sector number in order to convert 
che logical sector range of 0 to n=l into the physical range of 1 to 
n. Sector Translate is always called by the BDOS, whether the 
nzanslate table address in the Disk Parameter Header is zero or 
nonzero. 
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Get Address of 


FUNCTION 18: GET ADDRESS OF MEMORY 


REGION TABLE 


Entry Parameters: 
Register R3: 12H 


Returned Value: 


Register RR6: Memory Region 


Table Address 


MRT 


This function returns the address of the Memory Region Table (MRT) 
in register RR6. The MRT, which must be present and must begin on an 
even address, describes the segments that compose the TPA for non- 


segmented programs. The format of the MRT is shown below: 


Entry Count (always = 4) 


Base address of first region 


Length of first region 


Base address of second region 


Length of second region 


Base address of third ragion 


Length of third region 


.Basea address of fourth region 


Length of fourth region 


16 


32 
32 


32 
32 


32 
32 


32 
32 


bits 


bits 


bits 


bits 


bits 


bits 


bits 


bits 


bits 


Piqure 4-1. Memory Region Table Pormat 
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Region 


Region 


Region 


the segment used for procrams with merged 
program and data segments: 


the instruction segment for programs with 
split instruction and data segments: 


the data segment for programs with split 
imstruction and data segments: 


an instruction segment from which a program 
can access the instructions in region 2 as 
aata » - 


A program with instructions residing in region 4 can access 


instructions stored in region 2 as data. 


MRT 


the 


The segment number field 


of the program counter of a such a program in region 4 can be the 
segnent number of region 2. 
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FUNCTION 19: GET I/O BYTE 


Entry Parameters: 
Register R3: 13H 


Raturned Value: 
Register R7: 1/0 Byte Current 
Value 


This function returns the current value of the logical to physical 
input/output device byte (I/O byte) in register R7. This 83-bit value 
associates physical devices with CP/M-8000's four logical devices as 
noted in Figure 4-2. Table 4-3 defines these devices. Note that 
even though this is a byte value, we are using word references. The 
upper byte must be zero. 


The I/O byte is split into four 2-bit fields called CONSOLE, 
AUXILIARY INPUT, AUXILIARY OUTPUT, and LIST, as shown in Figure 4=2. 


Most Significant Least Significant 


AUXILIARY AUXILIARY 
I/O Byte LIST OUTPUT INPUT CONSOLE 


Pigure 4-2. 1/0 Byte Pields 


Peripheral devices other than disks are seen by CP/M-8000 as logical 
devices, and are assigned to physical devices within the 3I0S. 
Device characteristics are defined in Table 4-3. 
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Table 4-3. CP/M-8000 Logical Device Characteristics 


oe 
Device Name | Characteristics | 


| CONSOLE The interactive console that you use 

£o communicate with the system is 
accessed through functions 2, 3 and 
4. Typically, the console is a CRT 
or ather terminal device. | 





LIST The Listing device, usually a 
printer. 

AUXILIARY OUTPUT An optional serial output device. 

AUXILIARY INPUT An optional serial input device. 





The value in each 1/0 Byte field can be in the range 0-3, defining 
the assigned source or destination of each logical device. The 
Vaisues that can be assigned to each fielé are given in Table 4=4. 


Note that a single peripheral can be assignee as the LIST, AUXILIARY 
INFUT, and AUXILIARY OUTPUT device, simultaneously. If no 
peripheral devices are assigned to LIST, AUXILIARY INPUT, or 
AUXILIARY OUTPUT, your BIOS should give an appropriate error 
message. This prevents system hang-up if the device is accessed by 
PIP or some other transient program. Alternatively, the AUXILIARY 
OUTPUT and LIST functions simply can return to the caller, and the 
AUXILIARY INPUT function can return with a LAH (CTRL-Z) in register 
R7 to indicate an immediate end-of-file. 
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Table 4-4. I/O Byta Pield Definitions 





CONSOLE field (bits 1,0) 






Bit Definition 





0 console is assigned to the console printer (TTY:) 
1. console is assigned to the CRT device (CRT: ) 

2 batch mode: use the AUXILIARY INPUT as the CONSOLE 
input, and the LIST device as the CONSOLE output 
(BAT: ) 

3 user defined console device (UC1:) 








AUXILIARY INPUT field (bits 3,2) 


| ait | Definition 
AUXILIARY INPUT is the Taletype davice (TTY:) 
AUXILIARY INPUT is the high-speed reader device 


| 
(PTR: ) 
2 user defined reader #1 (URI:) | 








- oO 


3 user dafined reader #2 (UR2:) 


AUXILIARY OUTPUT field (bits 5,4) | 
Bit Definition 


AUXILIARY OUTPUT is the Teletype davice (TTY: ) 
AUXILIARY OUTPUT is the high-speed punch device (PTP:) 

















0 
1 
2 user defined punch #1 (UPI1:) 
3 user defined punch #2 (UP2:) | 








| LIST field (bits 7,6) 








ena | 

{ 

ait Definition | 
1 

QO LIST is the Teletype device (TTY:) | 

L LIST is the CRT davice (CRT: ) | 

2 LIST is the line printer device (LPT:) | 

3 user defined list device (ULI1:) | 

nS | 





The implementation of the I/O byte is optional, and affects only the 
organization of your 3810S. The only CP/M-8000 utilities to use the 
I/O byte are PIP and STAT. PIP allows access to the physical 
devices, STAT allows logical-physical assignments to be made and 
displayed. It is goed practice first to implement and test your’ 
BIOS without the [OBYTE functions, then to add the [/0O byte function 
after tasting. 


4-25 


cP/M-8000 System Guide Function 20: Set 1/0 Byte 


FUNCTION 20: SET 1/0 BYTE 


Entry Parameters: 
Register R3: 14H 
Register R5: Desired 


Returned Value: None 


This function uses the value in register RS to set the value of the 
I/O Byte. See Table 4-4 for the I/0 byte field definitions. 


Because this is a byte value, the most significant byte must be 
zero. 
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FUNCTION 21: FLUSH BUFFERS 


Entry Parameters: 
Register R3: 15H 


Returned Value: 
Register R7: O0O0OH=successful write 
Register R7: FFFFHeunsuccessful write 


This function forces the contents of any disk buffers that have been 
modified to be written. After this function has been performed, all 
disk writes have been physically completed. After the buffers are 
written, this function returns a zero in register R7. However, if 
the buffers cannot be written or an error occurs, the function 
returns a value of FFFFH in register R7. 
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FUNCTION 22: SET EXCEPTION HANDLER ADDRESS 


Entry Parameters: 
Register R3: 16H 
Register RS: Exception Vector Number 
Register RR6G: Exception Vector Address 


Returned Value: 
Register RRG: Previous Vector Contents 


This function sets the exception vector indicated in register RS ta 
che value specified in register RR6. The previous vector value is 
returned in register RR6. Unlike the BDOS Set Exception Vector 
Function (61), this BIOS function sets any exception vector. Note 
that register R5 contains the exception vector number. Thus, to set 
exception #2, segmentation “rap, this register contains a 2. 


The exception handler is called as a subroutine, with all of its 
registers saved on the stack, in the form given for the context 
block in the Transfer Control instruction. On a segmented CPU, the 
exception handler is entered in segmented mode. It should return 
with a RET instruction. 


Ail of the caller's registers except RRO are also passed intact to 
the handler. 


4.2 Memory Management System Cails 


The system call SC #1 is used for memory management operations: 
mapoing addresses from logical to physical, copying blocks of 
(pmysical) memory, and transferring control from one address space 
sO another. Parameters are specified in reqisters RR2, RR4, and 
RR6, and a value may be returned in RR6. The SC #1 descriptions 
below lllustrate the register settings to use wnen making the calls 
with assembly language as well as the C language calling sequence. 
The ¢ language library contains system call SC #1 functions designed 
to be called from non-segmented C programs. ‘ 
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TO use the memory management system calls successfully, take care to 
distinguish between logical and physical addresses. A logical 
address refers to an address in a program's address space; it is 16 
bits long for a non-segmented program, and 23 bits long (stored in a 
32-bit word) for a segmented program. A physical address is the 
address of the physical memory which the processor accesses. ‘two 
cases illustrate the necessity of this distinction: first, the 
hardware may map a logical address to derive from it a physical 
address. Second, a default segment numbet associates with the 
logical addresses of a non<-segmented program cunning on a segmented 
Cru. This default segment number is taken from the program counter 
(PC). . 


For CPM-8000, it is necessary that the logical-to-physical mapping 

process not affect the low-order 16 bits (offset part) of an 
address. Thus, on systems with MMU's that permit segments to start 
on arbitrary boundaries, the apparently “physical” addresses used in 
the BIOS code might be subject to further mapping by the MMU. So, 
when writing a 3IOS for such systems it is necessary to distinguish 
the memory seqments which belong to the system addresses from those 
which belong to the TPA. 


BIOS operations done through BDOS call 50 are mapped from the 
caller’s address space into physical addresses. 
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SYSTEM CALL 1: MEMORY COPY 


Entry Parameters: 
Register RR2: Length 
Register RR4: Destination 
Register RR6: Source 


Returned Value: None 


C language call sequence: 
long source, dest, length; 


/* source: source address. 
dast: destination addrass. 
length: length of block in bytes. */ 


mem_cpy ( source, dest, length ) 


This operation copies a block of Length bytes érom Source to 
Deszination. Length must be greater than zero and less than 65536 
{a Length of zero is used to distinguish different memory management 
operations). The Source and Destination are seqmented physical 
addresses, as provided by the Map Address operation below. 
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SYSTEM CALL 1: MAP ADDRESS 


Entry Parameters: 
Register RR2: 0 
Register RR4: Space Code 
Register RR6: Logical Address 


Returned Value: 
Register RR6: Physical Address 


C language call sequence: 
long addr, paddr; int space; 


/* addr: Logical Address. 
paddr: Physical Addresa 
(returned value) 

space: Space Code. */ 


paddr = map_adr ( addr, space ) 


This form of SC #1 is used to convert a logical address to a 
physical address. Since logical addresses depend on both the node 
(system or normal) of the program using them, and on the space being 
accessed (program or data), a code determines from which space to 
map. 


Tf the program in the TPA is running non-segmentad, the Set TPA 
Segment version of'SC #1 will have been used to tall the mapping 
routine which segment is being used. If the TPA is running with 
split program and data, it is also necessary to distinguish between 
the segment number that goes in the program counter to access 
instructions, and the physical segment by which the TPA's 
instruction segment can be accessed as data. 


The space codes are as follows: 


0: Caller's Data Space 

257: Caller's Program Space (as Instructions) 
2: System's Data Space ; 

3: System's. Program Space (as Data) 

259: System's Program Space (as Instructions) 
4: TPA's Data Space 

5: TPA's Program Space 

261: TPA's Program Space (as Instructions) 
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SYSTEM CALL 1: SET TPA SEGMENT 


Entry Parameters: 
Register RR2: 0 
Register RR4: OOOOPFF Fn 
Register RR6: TPA Base Address 


Returned Value: None 


C language call sequence: 


(This function uses the 
map_adr function with 
special parameter values. ) 


long addr, paddr; 
/* addr: TPA Base Address */ 


map adr ( addr, -1 ) 


This operation sets the base segment for a non-seqmented program 
running in the TPA. This base address is usually obtained from 
entry 1 in the Memory Region Table for programs with instructions 
and daca in the same segmenz, and from entry 2 for programs with 
Split instruction and data segments. 


If R6 (the high-order word of RR6) is FFFFh, the program running in 
the TPA is assumed to be running in segmented mode. 
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SYSTEM CALL 1: TRANSFER CONTROL 


Entry Parameters: 
‘Register RR2: 0 
Register RR4: FFFEH 
Register RRG6: Context Block Address 


Returned Value: none 


C language call sequence: 
long context; 
/* context: Context Block Address, */ 


xfer (acontext ) 


This operation causes control to be transferred to another address 
space. It allows all of the registers to be specified except for 
the system mode stack pointer. ODT™ uses this operation to transfer 
control to the program being debugged.- RR6 points to a context 
block of the form: 


word R0 

word RL 

word R2 

word R3 

word R4 

word a5 

word R6 

word R7 

word R38 

word RQ 

word R1LO 

word RLL 

word R12 

word R13 

word R14 (normal mode R14) 
word RLS (normal mode R214) 
word ignored 

word FCW (Flag/Control Word) 
word PC. Seqment 

word PC Offsat 
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Note wnat She PC segment word 1s required for compatibility even if 
tne CPU is a non=-segmented 28002. 


End of Section 4 
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Section 5 
Creating a BIOS 


5.1 Overview 


The BIOS provides a standard interface to the physical input/output 
devices in your system. The BIOS interface is defined by the 
functions described in Section 4. Those functions, taken together, 
constitute a model of the hardware environment. Each BIOS is 
responsible for mapping that model onto the real hardware. 


In addition, the BIOS contains disk definition tables that define 
the characteristics of the disk devicas that are present, and 
provides some storage for use by the BDOS maintaining disk directory 
information. 


Section 4 describes the functions that must be performed by the 
BIOS, and the external interface to those functions. This Section 
contains additional information describing the structure and 
Significance of the disk definition tables and information about 
sector blocking and deblocking. Careful choices of disk parameters 
and disk buffering methods are necessary if you are to achieve the 
best possible performance from CP/M-8000. Therefore, you should 
read this section thoroughly before writing a custom BIOS. 


§.2 Disk Definition Tables 
As in other CP/M systems, CP/M-8000 defines disk device 


charatearistics through a set of tables. This section describes each 
table and discusses parameter options. 
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§.2.1 Disk Parameter Header 


Each disk drive has an associated 26—-pyte Disk Parameter Header 
(DPH) which both contains information about the disk drive and 
provides a s¢ratechpad area for certain BDOS operations. Each drive 
must have its own unique DPH. The format of a Disk Parameter Header 
is shown in Figure 5-1. 


| XLT | 9000 | 0000 | ‘ 9000 0000 | DIRBOF | DPB | csv | ALV | 
b léd 16b 1 


32 6b 326 325 32b 32b 


Figure 5-1. Disk Parameter Header 


Eacn element of the DPH is either a word or longword value. Table 
5-l gives the meanings of the Disk Parameter Header (DPH) elements. 


Table S-1. Disk Parameter Header Elements 


Description | 


XLT Address of the logical-to-physical sector 
tranSlation table. If there is no translation 
table, it contains the value 0, and the physical 
and logical sector numbers will be identical. 
Disk drives with identical sector translation can 
share the same translate table. Section §.2.2- 
describes the sector translation table. 







Element 












0000 Three scratchpad words for use within the BDOS. 


DIRBUF Address of a l128=<byte scratchpad area for 
directory operations within BDOS. All OPHs 
address the same scratch pad area. 


OPB Address of a disk parameter block for this drive. 
Drives with identical disk characteristics can 
address the same disk parameter block. 
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Table 5-1. (continued) “s, 


CSV Address of a checksum vector. The BDOS uses this 
area to maintain a vector of directory checksums 
for the disk. These checksums detect when the 
disk in a drive has been changed. If the disk is 
not removable, then it is not necessary to have a 
checksum vector. Each DPH must point to a unique 
checksum vector. The checksum vector- should 
contain 1 byte for every four directory entries, 
or 128 bytes of directory. The length of the 
checksum vector is equal to (DRM+1) / 4. Section 
§.2.3 discusses the DRM value. 





ALV Address of the allocation vector, a scratchpad 
area used by the BDOS to keep disk storage 
Allocation information. The area must be unique 
for each DPH. There must be one bit for each 
allocation block on the drive. This requires 
that the length of the allocation vector be equal 
to (DSM/8) + 1. Section 3.2.3 discusses the DSM 
value. 


5.2.2 Sector Translate Table 


Sector translation in CP/M=-8000 is a method of logically renumbering 
the sectors on each disk track to improve disk [/0 performance. 
Frequently programs must access disk sectors sequentially. However, 
in reading sectors sequentially, most programs lose a full disk 
revolution between sectors because there ig not enough time between 
adjacent sectors to begin a new disk operation. To alleviate this 
oroblem, the traditional CP/M solution ia to create a logical sector 
numbering scheme in which logically sequential sectors are 
ohysically separated. Thus, between two logically contiguous 
sectors, there is a rotational delay. The sector translate table 
defines the logical-to-physical mapping for a particular drive. 


Sector translate tables are used only within the B8I0S, and may have 
any convenient format. The only interaction the 8DOS has with the 
table is to fetch the sector translate table address from the OPS 
and to pass that address to the Sector Translate Function of the 
BIOS. The most common form for a sector translate table is an n- 
Svyte or n-word array of physical sector numbers, where n is the 
number of sectors per disk track. Indexing into the table with the 
logical sector number yields the corresponding physical: sector 
number. 
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Although vou may choose any convenient logical-to-physical mapping, 
there is a nearly universal mapping used in the CP/M community for 
single~sided, single-density, S-inch diskettes. That mapping is 
shown in Figure 5-2. Your choice of mapping affects diskette 
compatibility among” different systems. To make your mapping 
compatible with different systems, we recommend the mapping shown in 
Figure 5-2. 


Logical Sector o 1 2 3 4 5 6 7 8 9 10 11k 
Physical Sector 1 71319 25 $11 17 23 3 9 15 


Logical Sector [13 14 15 16 17 18 19 20 21 22 23 24 
Physical Sector 2 6&8 14 20 26 6 12 18 24 4 10 16 





Pigure 5-2. Sample Sector Translate Table 


5.2.3 Disk Parameter Block 


A Disk Parameter Block (DPB) defines several characteristics 
associated with a particular disk drive. These include the size of 
the drive, the number of sectors per track, and the amount of 
directory space. 


One or more DPH's may use a common DFB if the disks are identical in 
definition. Figure 5-3 shows the DPB format. Table 5-2 describes 
she DPB fields. ‘ 


(om [ase [oe [oe [o [om [om [ meservee | oe | or | 
16D ab 8b 8b Sh 166 16b 165 16b 16b 


Pigure 5-3. Disk Parameter Block 
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Each field is a word or a byte value. Table 5-2 describes each 
field. va, 


Table 5-2. Disk Parameter Block Fields 


SPT Number of 128<byte logical sectors per track. 





BSH The block shift factor, determined by the data 
block allocation size, asa shown in Table 5-3. 


BLM The block mask, determined by the data biock 
allocation size, as shown in Table 5-3. 


EXM The extant mask, datermined by the data block 
allocation size and the number of disk pDlocks, as 
shown in Table 5-4. 


0) Reserved byte. 


DSM Determines the total storage capacity of the disk 
drive and is the number of the last block, zero 
telative. The disk contains DOSM+l blocks. 


DRM Determines the total number of directory entries 
that can be stored on this drive. ORM is the 
number of the Last diractory entry, zero 
relative. The disk contains ORM+1 directory 
entries. Each directory entry requires 32 bytes. 
For waximum afficiency the value of DRM should be 
such that the directory antries axactiy fill an 
intagral number of allocation units. 


CxS ' The size of the directory check vector. The CKS 
value ig zero if the disk is permanently mounted. 
The CKS value is equal to (ORM) / 4 * Ll for 
removable media. 


Orr The number of reserved tracks at the beginning of 
a logical disk. This is the number of the track 
on which the directory begins. 


cP/M-8000 System Guide 5.2 Disk Definition Tables 


In order to select appropriate values for the Disk Parameter Block 
elements, you must understand how disk space is organized in CP/M- 
8000. A CP/M=-8000 disk has two major areas: the boot or system 
tracks, and the file system tracks. The boot tracks hold a machine~ 
dependent bootstrap loader for the operating system. They consist 
of tzacks 0 to OFF-1l. Zero is a legal value for OFF, and in that 
case, there are no boot tracks. The usual value of OFF for 8-inch 
floppy disks is two. 


The tracks after the boot tracks, beginning with track number OFF, 
contain the disk directory and disk files. Disk space in this area 
is grouped into units called allocation units ar blocks. The block 
Size for a particular disk is a constant, called BLS. 


BLS can take on any one of these values: 1024, 2048, 4096, 8192, or 
16384 pytes. No other values for BLS are allowed. Note that BLS 
does not appear explicitiy in any BIOS table. However, it 
determines the values of a number of other parameters. The DSM 
field in the Disk Parameter Block is one less than the number of 
blocks on the disk. Space is allocated to a file or to the 
directory in whole blocks. No fraction of a block can be allocated. 


The <noice of BLS is very important. It affects the efficient use 


of disk space. There is a minimum value of BLS that allows an 
entire disk to be used. Each block on the disk has a block number 
from O to DSM. The largest block number allowed is 32767. 


Therefore, the largest number of bytes that can be addressed in the 
file system space is 32768 * BLS. Because the largest allowable 
value for BLS is 16384, the disk capacity that CP/M-800 can access 
is 16384°32768 = 512 Mbytes. 


Each directory entry can contain either 8 block numbers, if DSM is 
greater than or equal to 256, or 16 block numbers if DSM is less 
than 256. Each file needs sufficient directory entries to hold the 
block numbers of all blocks allocated to the file. A large value 
for 3BLS implies that fewer directory entries are needed. If fewer 
@irectory entries are usac, directory search time is decreased. 


The disadvantage of a large value for BLS is that files are 
allocated BLS bytes at a time, and there is potentially a large 
unused portion of a block at the end of the file. If there are many 
small files on a disk, the waste can be significant. 


The BSH and BLM parameters in the DPB are functions of BLS. Once 
you nave chosen BLS, use Table 5-3 to determine BSH and BLM. The 
EXM parameter of the DPB ig a function of BLS and DSM. Use Table 
5-4 to find the value of EXM for your disk. 
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Table 5-3. BSH and SLM Values 





Table 5-4. EXM Values 
DSM <@ 255 - DSM > 255 





The ORM entry in the OPB is one less than the total number of 
directory entries. Choose a DORM value large enough so that you do 
net run out of directory entries before running out of disk space. 
It is not possible to give an exact rule for determining DRM because 
the mumber of directory entries needed depends on the number and 
Sizes of.the files presant on the disk. 


The CKS entry in the DPB is the byte eount of the checksum vactor. 
The CSV field of the DPH points to the checksum vector. If the disk 
is not removable, a checksum vector is not needed, so this value can 
Qe zero. 


5.3 Disk Blocking 


When the BDOS performs a disk read or write operation using the 
S108, the unit of information read or written is a 128-byte sector. 
This sight correspond to the actual physical sector size of the 
disk. If not, the BIOS must implament a method of representing the 
128—byte sectors used by CP/M-d000 on the actual device. Usually if 
the physical sectors dra not 128 bytas long, they are some multiple 
of 128 bytes. Thus, one physical sector can hold some integer 
number of l28-byte CP/M sectors. In this case, any disk [/0 
actually transfers several CP/M sectors at once. 
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It might also be desirable to perform disk 1/0 in units of several 
l28-byte sectors to increase disk throughput by decreasing 
rotational latency. Rotational latency is the average time it takes 
for the desired position on a disk to rotate around to the read- 
write head. Generally this averages 1/2 disk revolution per 
transter. Because much disk I/O is sequential, rotational latency 
Can be greatly reduced by reading several sectors at a cime, and 
Storing them for future use. 


In both the preceding cases, the point of interest is that physical 
I/O occurs in units larger than 128-byte sectors. . Section 5.3.1 
discusses methods of performing disk 1/0 in units larger than 128- 
byte sectors. 


5.3.1 <A Simple Approach 


This section presents a simple approach to handling a physical 
sector size larger than the l128-pyte logical sector size. The 
method discussed in this section is a starting point far refinements 
discussed in the following sections. Ie¢s simplicity makes it a 
logical Ghoice for a first BIOS on new hardware. However, the disk 
throughput that you can achieve with this method is poor, and the 
refinements discussed later give dramatic improvements. 


Probably the easiest method for handling a physical sector size that 
is a multiple of 128 bytes is to have a single buffer the size of 
the physical sector internal to the BIOS. Then, when a disk read 
eceurs the physical sector containing the desired 128- byte logical 
sector is read into the buffer, and the appropriate 128 pytes are 
copied to the DMA address. Writing is a little more complicated: 
you must put data into a 12Z8-byte portion of the physical sector, 
but you can only write a whole physical sector. Therefore, you aust 
first read the physical sector into the BIOS's buffer, copy the 128 
bytes of output data into the proper 128<pyte piece of the physical 
sector in the buffer,. and finally, write the entire physical sector 
back to disk. 


Note: This operation involves two rotational Latency delays in 
addition to the time needed to copy the 128 bytes of data. In fact, 
tne second rotational wait is probably nearly a full disk 
revolution, since the copying is usually much faster than a disk 
revolution. 
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8.3.2 Some Refinements 


There are many methods you may use to improve the performance of the 
algorithm of Section 5.3.1. The first method is based on the fact 
that disk accesses are usually done sequentially. Thus, if data 
from a certain physical sector is needed, it is likely that another 
piece of that sector will be needed on the next disk operation. To 
take advantage of this fact, the SIOS can keep information with its 
physical sector buffer as to which disk, track, and physical sector 
(if any) is represented in the buffer. Then, when reading, the SIOS 
need only perform physical disk reads when the data needed is not in 
the buffer. 


When performing disk writes, the BIOS still needs to preread the 
physical sector for the same reasons discussed in Section 5.3.1. 
Once the physical sector is in the buffer, subsequent writes into 
that physical sector do not require additional prereads. To save 
additional disk accesses, do not write the sector to the disk until 
absolutely necessary. Section 5.3.4 discusses the conditions under 
which the physical sector aust be written. 


§.3.3 Track Buffering 


Track buffering is a special case of disk buffering where the I/O is 
done a full track at a time. This method is quite good when 
sufficient memory for several full track buffers is available. This 
method employs the following differences from that discussed in 
Section 5.3.2. Pirst, transferring an entire track is much more 
efficient than transferring a single sector. The rotational latency 
is ineurred only once for the entire track, whereas if the track is 
transferred one sector at a time, the rotational latency occurs once 
Per sector. On a typical diskette with 26 sectors per track, 
rotating at 6 revolutions per second, the difference in rotational 
latency per track is about 2 seconds versus a twelfth of a second. 
Of course, in applications where the disk is accessed purely 
randomly, thera ig no advantage because there is a low probability 
that more than one sector will be used from a given track. Note 
that such applications are extremely rare. 


5.3.4 Least Recently Used Buffer Replacement 


with any method of disk buffering using more than one buffer, it is 
necessary to have an algorithm to manage the buffers. A suffer 
should be filled when there is a request for a disk sector that is 
not presently in memory. 


CP/M-8000 System Guide 5-3 Disk Blocking 


Generaily, 1t is desirable to defer writing a buffer until it 
becomes necessary. Thus, several transfers can be done to a buffer 
for the cost of only one disk access, or two accesses if the buffer 
must be preread. There are four reasons why buffers must be written 
back to disk: ; 


i. When a BIOS Write operation with mode=l (write to directory 
sector) has been invoked. It is very important to the 
antegrity of the CP/M-8000 file system that directory 
information on the disk is kept up to date. Therefore, 21) 
directory writes should be performed immediately. 


2. A BIOS Flush Buffers operation. This BIOS function forces all 
disk buffers to be written. After performing a Flush Buffers, 
it is safe to remove a disk from its drive. 


3. A disk buffer is needed, but all buffers are full. Therefore a 
cutter must be emptied to make it available for reuse. 


4. 4 Warm Boot octurs. This is similar to number 2 above. 


Case three above is the only cage in which the SIOS writer has any 
discretion as to which buffer should be written. The best strategy 
is to write aut the buffer that has been Least Recently Used. The 
sact that the contents of a buffer have not been accessed for some 
time is a tairly good indication that it will not be needed again 
soon. . 


5.3.5 Tne New Block Plag. 


As explained in Section 5.3.2, the BDOS allocates disk space to 
<iles in blocks of BLS bytes. When such a block is first allocated 
=O a file, the information previously in that block need not be 
preserved. To enable the BIOS to take advantage of this fact, the 
3D0S uses a special parameter when calling the BIOS Write Function. 
This special parameter is indicated when register R5 contains the 
value 2 on a BIOS Write call, then the write being done is to the 
Sirst sector of a newly allocated disk block. Therefore, the BIOS 
need not preread any sector of that block. If the BIOS performs 
Gisk buffering in units of BLS bytes, it can mark any free buffer as 
corresponding to the disk addrass specified in this write. This is 
because the contents of the newly allocated block are unimportant. 
I= the BIOS uses a buffer size other than BLS, then the algorithm 
for takjng full advantage of this information is more complicated. 
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Proper use of this flag reduces disk delay. Consider the case where 
one file is read sequentially and copied to a newly created file. 
Without this flag, every physical write would require a preread. 
With the flag, no physical write requires a preread. Thus, the 
number of physical disk operations is reduced by one third. 


End of Section 5 


Section 6 
Installing and Adapting the 
Distributed BIOS and CP/M-8000 


6.1 Overview 


Digital Research supplies CP/M-8000 in a form suitable for booting 
on an Olivetti M20 system. If you have an Olivetti M20, you can 
read Section 6.2, which tells how to load the distributed system. 
Similarly, you can buy or lease some other machine that already runs 
cP /M=-8000. 


If you do not have an Olivetti M20, you can use the .REL files 
supplied with your distribution disks to bring up your first CP/M~ 
8000 system. Section 6.3 discusses this process. 


6.2 Booting on an Olivetti M20 
The CP/M-8000 disk set distributed by Digital Research includes 
disks to boot and run CP/M-8000 on the Olivetti M20. You can use 


the distribution system hoot disk without modification if you have 
an Olivetti M20 systam with the following configuration: 


e 256K memory (minimum required by the Olivetti memory management 
scheme) 

@ at least two double sided 5 1/4" floppy drives, or one double 
sided 5 1/4" floppy drive and one 5 1/4" hard disk. . 


To load CP/M=-8000 on a system with two floppy drives, do the 
following: 
L. Place the disk in the first floppy drive. 


2. Press the SYSTEM RESET button (on the right hand side of the 
machine). 


3. Type "F". This will cause the system to boot from floppy drive 
A:. 
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To Load CP/M=8000 on a system with one floppy and one hard disk 
Grive, do tne following: 


1. Insert the Olivetti PCOS™ system disk into che floppy drive. 
%. Press the SYSTEM RESET button to boot PCOS. 

b. Type "vt 10:" and a carriage return to format the hard disk. 
+. Insert the CP/M-8000 distribution disk into the floppy drive 


5. Press the SYSTEM RESET button, then type “F". CP/M-8000 will 
boot. . 


5. Type “ERA C:*.*" and a carriage return to clear the hard disk 
directory. 


You may then use PIP to transfer files ta the hard disk. 


6.3 Bringing Up CP/M-8000 Using the CPMSYS.REL Piles 


The CP/M-8000 distribution disks contain a copy of the CP/M-8000 
operating system in relocatable object code form, for use in 
branging up CP/M-8000 on any 28000 system. The relocatable CP/M- 
3000 system is in the CPMSYS.REL file. ‘This file contains the CCP 
and BDOS, but no BIOS. Release notes and/or a file named README.pOC 
describe the exact characteristics of the CPMSYS.REL file 
distributed on your disks. To bring up CP/M-8000 using the 
CPMSYS.REL file, you need: 


* a method to down<-load absolute data into your target system 


® a computer capable of reading the CP/M-8000 distribution disks, 
such as the Olivetti M20 


# aC language BIOS written for vour target computer. This SIOS 
may be developed from che C language BIOS supplied on the CP/M=- 
8000 distribution disks. Typically you will need to modify all 
the BIOS modules, and to write a new BIOSIO.C module. 


i?) 


.ven the above items, you can use the following procedure to bring 
a working version of CP/M~8000 to your target system: 


L. Compile your BIOS on the Olivetti M20. 


2. Link CPMSYS.REL and your new BIOS.REL files on the Olivetti 
M20. Section 2 describes this process. 


aad 
a 


Down=load your new CP/M system created in step 2 to the target 
computer. 
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Now that you have a working version of CP/M-8000, you can use the 
tools provided with the distribution system for further development. 


End of Section 6 
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Section 7 
Cold Boot Automatic Command Execution 


7.1 Overview 


The Cold Boot Automatic Command Execution feature of CP/M-8000 
allows you to configure CP/M=-8000 so that the CCP will automatically 
execute a predetermined command line on cold boot. This feature can 
be used to start up turn<kay systems. . 


7.2 Setting up Cold Boot Antomatic Command Execution 


The CBACE feature uses two global symbols: autost, and usercmd. 
These are both defined in the CCP, which uses them on cold boot to 
determine whether this feature is enabled. If you want to have a 
CCP command automatically executed on cold boot, you should include 
code in your BSIOS‘'s cold boot routine (at the label “bias") to 
perform the following: 


L. Set the byte at autost to the value 01H. 


2. The command line to be executed must be placed in memory 
beginning at the usarcmd location. The command must bse 
terminatad with a NULL (00H) byte. and may not exceed 128 bytes 
in Length. All alphabetic characters in the command Line 
should be upper-case. 


Once you write a SIOS that verforms these two operations, you can 
build it into a CPM.SYS file as described in Section 2. This 
system, when booted, will execute the command you have built into 
it. 


End of Section 7 


Section 8 
The PUTBOOT Utility 


8.1 PUTBOOT Operation 
The PUTBOOT utility copies a bootstrap loader program froma file to 
the system tracks of a disk. 
8.2 Invoking PUTBOOT 
Invoke PUTBOOT with a command of the form: 
PUTBOOT <filename> <drive> 
where 
e <filename> is the name of the file to be written to the system 
tracks; 


e <drive> is the drive specifier for the drive to which 
<filename> is to be written (letter in the range A-?.) 


* 


PUTBOOT writes the specified file to the system tracks of the 
specified drive. Sector skewing is not used: the file is written to 
the system tracks in physical sector number order. 
Because the system tracks for the Olivetti M20 must have some 
special PCOS information on them, PUTBOOT contains Logic to add that 
information to the system file placed on the system cracks. 
PUTBOOT issues messages indicating successful or unsuccessful 
execution of the copy operation. The nessages indicating successful 
axacution are . 

Bootstrap file is x bytes. 
This indicates the size of the boot file. 

Bootstrap has been written. 


This indicates the operation is complete. 


ms 
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Tne messages incicating errors in the PUTBOOT execution are 
outboot: Illegai drive code <drive> 


This undicates an illegal drive code in tne <drive> snecifier on the 


putboot: Can't open bootstrap file <filename> 


Tid ainéicates that PUTBOOT cannot open the file specified in 
<lliename> on the command line. 


Bootstrap too big. 


This indicates the file specified on the command line is too big to 
be cocied to the system tracks. 


Usage: putboot <filename> <drivecode> 


This indicates chat the command line had an argument error. 


PITSOCT uses SDOS calls to reac the bootstrap loader program stored 
a.m tne ile specified in <«filename>. PUTBOCT uses BIOS calls to 
write tne pootstrap program to the system tracks. It refers to the 
OFF anc SPT parameters in the Disk Parameter Block to determine che 
Sige of system ‘track space. The source and command ‘files tor 
PUTBOOT are supplied on the distribution disks for CP/M-8000. 


End of Section 8 


APPENDIX A 


Contents of Distribution Disks 


This appendix describes briefly the files on the diskettes that 
contain CP/M-8000 as distributed by Digital Research. 


File 


ARSK.28K 
ASZ8K. PD 
ASZ8K. 28K 


XCON. 293K 


8IOS.REL 
LORBTIOS . REL 
BIOS.SUB 


3IOSBOOT. SKN 
SIOSDEFS . 8KN 
SIOSIF.3KN 
BIOSIO.8KN 
BIOSMEM. SEN 
BIOSTRAP . 8KN 


8IOS.C 


Contents 


Executable version of the archiver/librarian. 
Predefinition file for the assembler. 
Executable version of the assembler. 
Executable version of the <XCON utility. The 
XCON utilicy translates from UNIDOT object file 
format to XOUT object file format. 


A celocatable code file containing the 3810S for 
the Olivetti M20. 


A relocatable code file containing the loader 
BIOS for the Olivetti M20 


A submit file which creates a celocatable 
BIOS.REL file. 


BIOS boot code. 

BIOS assembly definitions for 3I0S modules. 
BIOS interface code. 

BIOS [/0 routines. 

BIOS memory management coutines. 

SIOS trap routines. 


C language source of 300tstrap and normal 310s 
for the Olivetti M20. 
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SYSCALL. 8KN 
COPY.Z8R 


CPM .SYS 


CPMSYS.REL 


CPMSYS2.REL 


CPMLDR. REL 


CPMLDR.SYS 


CPMSYS .SUB 


bo’. 28K 


DUMP .Z8K 


ED.28K 


Contenzs 


Interface for system calis in BIOS for 78001. 
An executable version of the COPY utility. 


Executable CP/M-8000 operating system file for 
the Olivetti M20. 


Relocatable version of CP/M~8000 containing the 
CCP and BDOS modules. 


Relocatable version of CP/M-B8000 for the z78002. 
Contains the CCP and BDOS modules. 


Relocatable bootstrap loader for the M20. 
Contains only BDOS module. 


The soeotscrap loader for the M20. A copy of 
this is written to che system tracks using 
PUTBOOT. 

A submit file to create CPM.SYS. 


An executable version of DDT, the interactive 
debugger. 


An executable version of the DUMP utility. 


An executable version of the ED utility. 


An executable version of the disk formatter 
utility for the Olivetti M20. 


Object file for floating point processor 
emulator. Linked into normal BIOS. 


Object file for processor dependent floating 
point orocessor emulator code. Linked into 
normal BIOS. 
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File 


LDBDOS. REL 
LOskK.Z8K 
LIBCPM.a 


LIBCPMS.a 


OPT.O 
OPT .c 
OPT1L.O 
OPT1.C 


OPTION.#H 


CTYRE.H 
ERRNO .H 
PORTAB.H 
SETIMP .8 
SIGNAL.H 
STDIO.4 
xOUT.H 
ASSERT .H 
MAKELOR. SUB 
MKPUTBT . SUB 


NMZ8K . 28K 


PIP.Z8K 


A Contents of Distribution Disks 
Contents 


Leader BDOS relocatable object file. 
Executable version of Linker/loader 


C language runtime Library for the 28002. 
Functions execute in non-segmented mode. 


C language runtime library for the 28001. 
Functions execute in segmented mode. 


Object and C language versions of C language 
library optimization facilities. The file 
OPTION.H contains commentary explaining these 
facilities. 


The following files prefixed ".H" ‘are ¢ 
language declarations to be used in the 3I0S or 
ether user programs via the C language 
“include” directive. ; 


Declarationa to aliminate unused C runtime 
library functions. 


Macro definitions for ASCII coded integers. 
Declarations of error codes. 

Declarations for BIOS portability. 
Declarations for satjmp and longjmp functions. 
Oeclarations for the signal function. 
Declaration of C standard [/0O functions 
Declarations of CP/M-8000 object format. 
Declaration of the ASSERT macro. 

Submit file to create CPMLOR.SYS. 

Submit file to create PUTBOOT. 


Executable version of the symbol table dump 
utility. 


An executable version of the PIP utility. 
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PUTBOOT.C 


PUTSOOT.Z8EK 


SIZEZSK.Z8K_ 


TARTUP .Q 


STARTUP .8KN 


STARTUP .8KS 


220. 28K 


ZCCL. 28K 


Contents 


C language source of the Olivetti PUTBOOT 
utility. 


Executable version of the Olivetti PUTBOOT 
utilicy. 


Object code specific to tne Olivetti M20. 
PUTBOOT uses this code. 


An ASCII file containing information relevant to 
this shipment of CP/M-8000. 


Executable version of SIZEZ8SK utility. 


Startup routine for use with C programs. 
STARTUP must be the ‘first object file linked. 


STARTUP .8KN is for tne 28002. 

STARTUP.8KS is for tne 28001. 

An executable version of the STAT utility. 
Executable version of XDUMP utility. XDUMP is 


like DUMP, and prints additional header and 
symbol table information. 


The © language compiler and its overlays. 


End of Appendix A 


APPENDIX B 
Sample BIOS Written in C 


The listings in this appendix are also found on your CP/M-8900 
distribution disk. 


The Olivetti BIOS consists of both C language and assembly code. 
The C language code is conditionally compiled to produce either a 
leader BIOS for use with CPMLDR.SYS or a normal BIOS for use with 
CPM.SYS. Listing B-1l is the C language BIOS. Listings B=-2 and B-3, 
BIOSASM. 8KN and LBIOSASM. 8KN, assemble the seven remaining assembler 
modules to form either a normal S8IOS or a loader BIOS, based on the 
value of the label “LOADER”. 


Listing Bel. C Language BIOS 


























/ * eens rmmermces © / 
/*4 : ie/ 
/*4 CP/M-8000(tm) 8310S for the OLIVETTI M20 (28000) i*/ 
/*{ it/ 
/*t Copyright 1984, Digital Research [nac. i¥/ 
/*} . i*/ 
/ . af 
/ * oe ee aS 2 / 

/* Campilaction informacion */ 

an a aay a 
i / Se ar andmmtaanane pment a iten lpr teen nechee a cea tens Leal 2 f 











/*To compile bios.c for cpmidr.sye the command is: zee -c -M1 -dLOADER dios.c °/ 

aes conditionally compiles bios. Leaving unrequired code ouc of the onjectt/ 
"tile. 

{* : 

/* The normal bios compile command for cpm.sys is: tee -c -mMl bios.c */ 

/* Thia will provide che full funetionallicy of che Dios in the ocojyect file */ 


/ tn STARE AS OE A DS BA OO ON NY 

















AE ED tH NI 














0 OE OS OO oe ene cee ae cae omen marcewe neweneee Hf 











/* By compiling bios.c with che command : tec -¢ -ML ~iTRANSPER bice.c °/ 
/* You are provided with a bios object that allows the two floppy drives :o */ 
/* nave two different formacs. This is left purely as an example for the °/ 
/* the benefit of porting to a different format and can be nodified. */ 
0 Rl OE OE) Pe ey ES OE ED ED EO Oe Oe oe ee ee LP ey aD A ST} aD EAE SN A Ey  Se-eae ai a * / 
/* By compiling bios.c with che command: zee -c -ML -dsect26 Dios.c / 
ny 8" fCloppy disk support is provided by conditional compilation. *f 

- SS A AD SN AD SD AS a ap SAP  S)  D  - VO S  l N VONS-D SAAD-QONY MO AS P-DSn S S  S nS Te OR ay SED VE tele ee owe F / 


rhe 


:* 


it 


cha: copyrignht({] = 


i 
we 
we 
ew 
re 
we 
we 
we 
we 
we 


ww 
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tdafine DEBUG 


42 STORY 


320803 


330614 


3306804 


B308C4 


630809 


831205 


832212 


Sdoetine BAU 1 


i 


tg 


LTT 


Listing B-1l. (continued) 


lal 
Nee 


"/ /* Decommencting this define will comditionally compile*/ 


/* code setting the sty port to i200 baud listening 
/* XOPF on that port. 


*/ /* By decommenting this define hard 418k debugging */ 
/* ys enapdlied. This provides drive. plock. and / 
/“ crack information to be printed on the console. °/ 


“Copyright 1984 Digital Research Inc.": 


Savinzky (Zilog) -- derived fram 68000 EXORMACS bios 


jlotnick (Zilog) =—- removed initialization of iopyte 
upon each warmboot. Thangec seldisk to test for 
overllow of the aphtab (to £22 the “dir d:” bug). 


cloenick (Zilog) -- Added conditional compilation tor 
loader 3210S, which only needs «a few of the BIOS 
functions. The loader DOES require the definition 
ef e context structure. for sranater of control to 
wne systene proper. 


slotnick (Zzlog) -- Cnangad Disx Parameter Blocks to 
reflect new pootstrap method. 


Zlotnick (Zilog) -~ Added escape character to keyboard 
map, as ctrl'!'. 


Greenberg (Silog) -- Fixed disk parameter table tor nard 
Q@rive C to point to dpb3. not dpp2 (80 erk floppy). 


Greenberg (Zilog) -- Modified disk parameter tablas for 
hard disk to look sore Like floppies (fewer sectors 
But more cracks). This will fix the sector deblocking 
part of the Dios tc be compatible with both. Also 
switched co 4K allocation blocks and 512 direntries. 


row OE SET TOT OT ETT OTTO OTT SSE OCU U UTES OT EU ES / 


(7 FOS SOE Oe OT TE OES OR OUST EEE TOE EE TOTO TFC TT HPO SCU HTSUS HR TUEE ECE TEESE TE / 


‘7 


a] 


. 


2/C Device Definitions “/ 


SEP ESSEC ETF CCT TE FEKETE STE TE TOTS EHTS OTTER EKT OCT OST ETTVETTEVTTVETOVUTVTTFES i 
é 


oo EE CT ETE TT TUT TUTTO OH TOT THUT CUCU EWES / 


B-2 


e/ 
°/ 


CP/M=8000 System Guide B Sample 8If0S Written in Cc 


Listing Bel. (continued) 


/ PSSST CSCRATAEESESUTEAUYGTTAUCAES alata tialhadiadiadiaalia hahaa hahahahaha hahaiedaiahiehahaiaiaiaiichiehatahhtall | 


/* Oefine Caterrupt Controller constants */ 
/ PESOS WARE TEESE SESE ASTS SAGE THETVEGAEKACENSD FS FOERSCOHUUWETE eeeurwerenewnres / 


/* The interrupt controller is an Intal 3259 Left<ashifted one bit */ 
/* ta allow for the word-alligned interrupt vectors of the 28000. */ 


/* === Aseume that this is set up in the PROM sem */ 


/ COON O INSETS CRA OTTO OSU E COHEN CSTE RECN WES WTEROWERATEUS TORN CURTOCTE OSES / 


/* Oefine the two USART ports */ 


[PAPO CURE COUNT ETA S COE TROT RENEWS N ET SUTCLTS TA OU OREO COCONUT ETON TRE TTORUEWHE / 


/* The USARTa are [ntel 3251's */ 


tdefine KBD OxAL {* Keyboard USART base ef 
tdefine 83232 OxCl /* 88-232 terminal *f 
tdefine SERDATA 0 /* data port offset «/ 
tdefine SERCTRL 2 /* gontrol port offset */ 
tdetine SERSTAT 2 /* status port offset “/ 
sdetine SERINIT 0x37 /* init (3 cises) "/ 
tdefine SERRES 0x40 /* coset “/ 
*detine SERMODE Ox£E /* aode (2 stop, even parity */ 
/* parity disable, 8 bits */ 
/* ‘divide py 16 */ 
/* OUBIOUS. 1577 w/ 
tdafine TYTYON 0x37 /*-ema (no hant, no reset. */ 
f* RTS, error resect, °/ 
/* no break, rev enable. “/ 
a* OTRO, xmt enable “/ 
tdeftine SERBRDY 0202 /* RCV ready bit zask */ 
tdefine SERXRDY 0x01 /* XMT ready bit sask “f 
tdetine XON Oxil /* Conerol- Q ad 
sdetine XOFF Oxi3 /* Gantrai- § “/ 


/ POS SPOS ESCORTS ROPER UR GUD STOW WHSE WHS CUOURUERERETOWTUEVEWTEWETRE TASER E TEE / 


/* Define the counter/tiaer ports wf 
f FSP OSHS HY STS SSPE WOTH SEVERED VEWESTOUVRPOVTVED Poe eVvevecrF2 70 E08 ewesrwenrree / 


/* The counter-cimer is an laced 3253 °*/ 


tdefine CT_232  Oxl21 7* edunter/tiser 0 -- 25232 saud cace  °/ 
tdefine CT_KBD 0Oxi23 /* sounter/timer 1 -- kbd baud rate *f 
tdefine CT RTC 04125 /* councer/timer 2 -- NVI (rt clock) "7 
tdefine CT CTRL Oxl27 /* counter/timer control port "/ 
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Listing Bel. (continued) 
taetine CTOCTL 0236 /* @/t 0 conerol byte */ 
taoetine CTICTLO. 0276 /* ¢/2 1 control ovte */ 
taefine CT2CTL OxB4 /* cfs 2 control pyte */ 
‘* control byte is followed py LSB, then MSB of count to data register */ 
““ paud rate table follows: “/ 
y.tnaef LOADER /* NOT needed dy the Loader Bios */ 
2at paudRates(10) = 
1538, f° $0 */ 
699, /* 110 */ 
256, fe 300 */ 
128, /* 600 */ 
64, /* 1200 */ 
32, /™ 2400 */ 
is, f* 4800 */ 
6. ‘7 9600 */ 
4, /* 39200 */ 
v3 f* 38400 *Y/. 


Sih ae 


’* End Conditional */ 


a ala Rt diet de i i ih hd ee hh hh DD A 


* 


eo: 


“eline Parailei Port constants 


f 


7 OW Ee ETE EET OT TU ODEO OTC S VEU TE UOU HHT ATU E TOD ; 


“* “he parallel (printer) port is an intel 8255 */ 

tdeiine PAR_A 0x61 /* pert A data */ 

sdefine PAR_B 0x83 /* port B data vf 

kdetine PAR_C oxe5 /* part © data “/ 

taatine PARCTRL 0x8? /* control port */ 

sdefine PARBSY 0x02 /* Bit one (Busy bit) needa to be low °/ 
sdatine PARFLT 0x10 /* pat five (faule pit) needa to be high °/ 
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Listing B-1. (continued) 


COWES COO C CREE ECS R SEAT ESAU RHEE EEE RT CETUS CRU WEE OHSU HW TENSES UCETEWEDE HS / 
/ Mteeweerovarereeveceneveseuesnereeeunuesuuenauausawanuaueuseewewueareee / 


/* : of 
/* PROM AND HARDWARE INTERFACE ; / 
* , « 

POSS 888608 8FE SHES SHE ROT ESS HEHEE HOSE OH SE TUEURURETE THRE ETAECOSEUHTUCERETR OD / 
[ PPPCRE REPELS TROT O ELECTS CHEE HUTTE UTR TO WUT RUAN ENTE WE HOON IOS eevee ee TW / 


/ SPS P VS OE POSH OS OTH AEG SOS OH HE THOS HAE OEPAAOESAOUE UVES TUHECSCORESTOTEWURETECRS / 


/* Oefine PROM [/O Addresses and Related Conatants */ 

[ PORAOH CLO RE TOTES WE TESS EU EAE T OST TE STITT OCHO NESW HONS TU UNE RSW SEES seevere / 

/* SEE SIOSIO.SKN FOR THESE EXTERMALS */ 

extern int disk_io(); /* (char drive, cad -- disk [/0 */ 
/* int blk count, */ 
/* int blk nua. "/ 
/* char *dese) -> int error? */ 

extern ert _put(); /* (ener character) -- put byte to CRT */ 

extern cold_boot( ); /* boot operating system "/ 

#define OSKREAD 0 /* disk cead command °/ 

tdefine OSKWRITE 1 /* disk weite command */ 

¢dafine OSKFMT 2 /* disk format command ‘*/ 

tdefine OSKVFY 3 /* disk verify command ‘/ 

tdetine DSKINIT 4 /* disk init. command «/ 


/ POS SPAS SSS SSST AVES SOS VOWS ST THES TESS SSE AVES UVSC NUEAHSEOUVEHCBEVAHEWSUTET EY / 


/* Define external [/9 routines and addresses */ 
/ CSS TTPO TSO T ES SESSA EEF EA HST ET PAGES EST UTR EE EHH OR TORUT ATER EWU ETS OW HORST CE / 
j* SEE SIOSIF.8KN FOR THESE EXTERMALS °/ 
extern output(): /* (port. data: int) — output “/ 
extern int inpue(); /* (pere: iat) — input */ 
[ POC C CORT TER TE ES COUT DCEO TUTTE ETT TCU T TONER THESES EEOC NTT EC CEES CWC UT ENO OS / 
/* Define external semory canagement coutines “/ 
/ POS OSC O ESOS EOE NEUES TREE TOOET ES TH PRUE TOTES TOR TETURHTEVSTTUETRETUH ETOCS / 
i* SEE SYSCALL.SKN FOR THESE EXTERNALS “/ 
extern sea_cpy(); /* (see, dese, Lent lLong)=~ copy daca "/ 
extern long sap_adr(); /* paddr = (laddr: Long: space: int) “/ 
tdefine COATA 0 /* caller data space “/ 
tdefine CCODE | /* caller code space */ 
tdefine SDATA 2 /* system data space */ 
tdefine SCODE 3 /* system code space “/ 
sdetine NOATA + /* normal data space “/ 
sdefine NCODE 5 /* nermal code space ef 
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Listing B-l. (continued) 


f ee OTS UTES TEETH O TT UT TO CTW OCU HTT OS WHITES WET ee / 


Je System Entry and Stack Pointer */ 


LOE EET CTT TTS H FETT TOT TSO TOAST TOUT TSO TOTO TUTE ESOT EEC TT TVET RET THEA / 


tdetine SYSENTRY OxOn000006L /* entry pointe */ 
tdet.ne SYSSTKPTR OxOn00nt fel /* systewp's stack pointer stare */ 
TOOT CO EET OTT OO TOUTS T OT HTT TT ESOT E OTTO SOOT AOU OT ET ESOT OUWT TUNE / 


we Memory Region Tadle */ 


[wwe rwewwrvorrrwry 2 Oe eS EWE T OTTO UW OCCT EET TETHER TAHOE SUTTER TURD / 


fitndef LOADER /* NOT needed for the Loader Bios «/ 
. 


struct mars | amt ceunt: 
struc: jleng tpalow: 
leng ctpalen: 
} 


regions( 4]; 
} 
mneatab = i4, 
OxOado00ds., Oz10000L, ‘* gerged I and BD */ 
Gx0scgccoaedos.. Gzlgaod., ‘* gseparared [ “/ 
SxO8Oo000ed., Oxr0c0d., ° and 0 *,’ 
Gx0B000000., OxiGoag. ‘* secesaing 1 ae G */ 
tenc.: 7 ‘* End conditienas */ 
tiice: LOADER ’* NEEDED tor tne woader Bios */ 
Strce: mrt i imt count: 
struct ilong tpalow: 
long tpelan: 
} regions(1]; 
i 
memtab = [2, ; 
xOBOOOOOOL, OxOCODOL, /* system space: merged I and 2 */- 
}: . 
struct context /* Startup context for user's progras.. °/ 
snort regs(i4i; 
Long SEGStKPtr; 
snort ignore: 
snore Few: 
1ong PC: 
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Listing B-1. (continued) 


struct context context = 


{ /* Rags 9-13 cleared. sp seat up below 8 */ 
(0, 0, 0, 0, 0, 9, a 2, 0, 0, O, 9, O, O}, - 
SYSSTKPTR, /* Leaded syetem's stack pointer «/ 
0, /* Iqnore: value ia zero */ 
Qxds00, /* FCW: sequented system, VI, VI see */ 
SYSENTRY /* Entry point to system */ 
tendit /* End conditional */ 
/ PRES SSS G SSS SPST VSW SATOH ESVESESVERAVSERDSSPOVOSEUTS SOPOT STOW ET TAHT UT ENTS / 
/* Set Exception Veetor entry */ 
/ SHS V CVSS 8ST TORS W SSS SSS ASSES SHESES SSS TVS STSS SCTE SSTEVH VSS VHERCTTETTTSe wore / 
extern long trapvec{]; /* trap vector */ 
long sectkvect(vnum, vval) 
int vmuar: 
pond vval; 


register leng oidval: 


aldval = craevec(vnunl: 
trapvee({vnuma] = vval; 


return(oldval):; 
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Listing B-l. (continued) 


saweeerrvevevrrgervuverrrrreLTVKerevurUTeNTTNTH YTV ETNETHLT LST T ewe eewe / 


a) CETTE TOT TUT TRAE CTU C TECH E STOW TET HTT TTT TCHS WV TTT UT OTE THT OUT TT TUT ee / 


ya */ 
J 
ys CHARACTER 1/0 / 
i” e/ 
/anvwe C08 Y SPOTS TTT OTE OEE TE TOY SET TU ET UOTE HUI OHOTUVOWTTT TUNE TUS / 


i” 2 8 O88 EU OOF OY SOS ET OTE TES OE ETE TT OO THU TT TE TE EET OUUUTUT EDT TUTUUTTT OS / 


i” © SEO ET EOE EEO EET OTH EH EEO TOTES EU UE TT OTTO TEP TSU OST STU TVEwWe / 


os Ganeri¢ Serial Port 1/0 Procedures */ 


f MOO FETA OUST O TESTU ETS TESST HT ERTS TESTER TTR UOH TEST HET HET TT HASSUTHETH HA Ewe / 


/* define as extern the dirty flag. which 14 actually defined later */ 
/* on in thas £ile. Used to flush the buffer at an opportune soment. */ 
ertern int todarty: 


serinit (pers) 
aalt port: 


output(portrSERCTRL, SERINIT): 
outputipors+SERCTRL, SERINIT): 
output (pertrSERCTRL, SERINIT): 


output(port+SERCTRL, SERRES): 
gutput(portrSERCTRL. SERMODE): 
qutput(port+SERSTRL, TTYON): 


#.2 BAUD /* Conditional for 1200 baud */ 
output(CT_CTRL, CTOCTLD ; /* Set baud rate genrator */ 
output(CT_ 232, baudRates(4J): /* Modify tor different speeds */ 
output (CT 232.0): /* Set for 1200 baud «/ 

aaime 
{* os aggume the PROM seats it up. sme */ 

sandis /* End conditional */ 

Lat sesirdy (pers) 

at pers 


return(:(anput(porctrSERSTAT) & SERRRDY) == SERARDY) ° OxFF : 0): 


A 


wn 
- 
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Listing B-1. (continued) 


char serin( port) 
ra port: 


while (serirdy(port) = 0) ; 
return input(port+SERDATA) : 


int serordy (port) 
ia port: 


return( ((input(port+SERSTAT) & SERXRDY) == SERXROY) 7? OxfF : 0); 


serout( port, ch) 
int port: 
aad on: 
#if BAUD * Senditional for 1200 baud and XOFF */ 
while ( ((input(pere * SERSTAT) & SERXRDY) 
{= SERXRDY?} CCU Cinpue( pore + SERDATA) ) 
& Ox7P) ~ XOFF) sm 0)): 
output( port + SERDATA, ch); 


telse + 
while ( (inpuc(port + SERSTAT) & SERXROY) |= SERXRDY) 
autput(port+SEADATA, ch); 

fendiz : /* End conditional */ 

parcordy (port) 


ine port: 


int status? 
statue = (input(port)): 
return (((status & PARASY) |= PARBSY) && 
(( statue & PARELT) = PARFLT) ? OxfFF : 0}; 


parouc(port. ch) 
int port; 
chars ch; 


Ty 
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Listing B-l. (continued) 


reqisgter int 1. status: 


2 = 0; 
do 
i 
rf (-~1 = 0) /* only check for */ 
iprintstr ("nrPrinter Timeout.nr”): /* pranter ready a °/ 
return: '* £i:nite number of °/ 
j /* times */ 
] - 
while (iparordy(PAR_83)); /* x. printer ready ‘/ 
output (port, cn): /* print character °/ 
gutput (PARCTRL, Ox0Ai: /* set strope low */ 
output (PARCTRL.. 0x05): /* set strobe high */ 


| we OO OU F808 FEET OE TET EOE CETTE EU ETT OTTO U TUS T TU TUN TTUST OTOL TTTS / 


- Clivetti keyboard translation table. . */ 


‘ ee Oe 6 COE TOUTS TOOT TEU T HWE RET UE TEE THO TUSTH TEST TUES TTTOTEWETOTTTTTOY / 
ti¢naet LOADER /* NOT needed for the Loader Bias e/ 
tras xptranc 2565 = 


Raw “ev codes ‘tor malin Keypad: 


= AB ¢ 9 £& F G@ HK 2 3 K  & MON 
a = Sd Y 2 0 : 2 3 
> § 6 7 8 8 = ° a { ; } / 


oxoo.'’«\', ‘a’, “Di, ‘et, 'a*, '@', (£5. ‘gts THe, CR. URe ‘wi, (1', ‘mi. nm, 
37 ‘pp , ‘q' ‘r'. fs’, Ctl, fel, ‘vi, fw, fx, ‘y', ‘2°, ‘O°, ‘1, 72°, ‘2° 
4° 5 "6', ‘7', ‘s', ‘3°, - , see ‘¢@ ; ‘C'. _ ‘J. ' ' ‘ ‘| ‘ft, 


(” main keyboard SHIFTED */ 


OnE, (2', CAT, OR, CRT TD, TET OR, 8G. THT, ODT, ST TK TET TM ON, 
Se ge ep cs eloem gel wel wel coxeD oyel ez tte ge 
a Pe a iT et, tat? 


‘« 


mazn keyooard CONTROL -- CT2 B and © ditfer ‘rom Olivetzi. */ 


S2A0. Ox7F, 0401, 0x02, 0x03, 0x04. 0x05, 0x06, 0x07, 0x08, 0209, 0x0A,0x0B, Ox0C, 0x00, OxOE, 
OF Ox10 0x11. Oxl2.O0n13,0214,0x15,0x16,0x17, 0x18, 9x19, Ox1A, OxES,Ox£1,0x82,0x53, 
oS eES. OXEE 0256 .OxE7 ,OxE8,0xE9, OxEA, OEB,0x00,0x18,0xi£,0x1F, 0x10, OxFE,OxFF,OxAd, 
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Listing B=1. 


/* main keyboard COMMAND */ 

OxDF, Ox#B, 0x60, 0x81, 0x2,0x83, 0x64 
OxSE, OxGF , 0x90, 0x91 ,0x92.0%93 0294 
OxFO, OxP1, OxF2, OxF3, OxF4, Ox#S , Oxil6 
/* other keya 


: $§$? 
KEYPAD 


™ Owe bd 


*/ 
/* other keys UNSHIFTED -~ CR dif 


.', 'O',OxaA6, ‘L', 
‘2°, ‘3°, ‘¢', ‘s‘, 
‘6', > aan ‘3', "9", 
‘ey 1! o@e yet, 


nr 


B Sample 8If0S Written in 


(continued ) 


0x65 , 0x86, 0x07, 0x88, 0x89, 0x8A, 9x8B, Ox8C, OxSD. 
,0x95, 0x96, 0x97, 0x98, 0x99 ,OxEC, Ox£D, OxEE, OxEF. 
OxP7, OXL3,Ox1LC, OxFC, OxPD, Ox9P,InF9,OxFA,OZAS, 


fers from Olivetti *°/ 


/* other keys SHIFTED -— CR differs trom Olivett: */ 


' +, *e'  OmAS,OxA9, 

‘.*, ‘0°, OxA6,Oxlc, 
Ox9A,0x10,0x98,0x9C, 
Ox9D, OXLE,Ox9E.Oxl?, 
022B,0x20, Ox2A, Ox2?, 


/* other keys CONTROL */ 
' ''e! ,OxAB,OxA9, 
0x80,0x81,0x82,0x83, 
Oxe4,0x85 ,0x86,0x18, 
0x88 ,0x89,0x8A,0x88, 
Ox8C,0x8D,0x88,OxaF, 
/* special «= substitute © far 


rn 
}; 


sendif 


QLiverti's OxAF. 


*/ 


/* End conditional °/ 


BeL1l 
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Listing B-l. (continued) 


’ ee ree eee tee Ae Dee 


ad specific 1/0 procedures for use with iobyte “/ 


a ee ESAS EE aie 


‘* CRT status, read, write routines */ 
um. crsrs() 


recurn( serirdy(KBD)) > 


siindet LOADER /* NOT needed for the Loader Bios */ 
char erurd() 


return( xbtran(serin( KAD) & Oxff)): 


eenas.s 


/* End conditional */ 
t:fae!l LOADER /* fendisaana. tor Loader S3ios cisable KED °, 
saetine ertrd nulre 
senait ‘* End conditionai */ 


.at trtws(! 


return( OxFF): 
‘decine crtwr crt _put /* output routine in PROM °/ 


‘e —~y status, read, write routines */ 
int coyrs() 


return( serirdy(RS232)): — 


sha: zeyrd() 


return(serin(RS232)): 


Lt ttyws (Cy 


return( serordy (RS232)); 
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Listing B-L. (continued) 


ettywe( ch) 
qnar eh: 


, serout(RS232, ch); 


/* OPP status, output routines */ 
rae Loews) 


, retugn (paxordy (PAR_8)): 


lpewr(ch) /* ARGSUSED */ 
a ech; 


} 


/ POSS SES SCE CHAE SOR EAT WAU ASCE S SRW COSTS OHE TEST TECSESHSTORUVAWTAEPUATARTeAWASeHRSEe / 


/* generic device names, batch, and cull devices */ 
/ COS VSP SSE SRW SESE TSU SO SEE SESH WOKS ESCUCKAVOPSESTUEHIRETORIRVETIVE THe LG e / 


parout (PAR_A, ch): 


/* the device names ace the offsac of the proper field ia iobycea */ 
tddfine CON 9 

stdefine READER 2 

sdefine PUNCH 4 

tdefine LIST 6 

{* BATCH status, cead, write coucines */ 


tifndet LOADER /* NOT needed by the Loader Jios */ 
rae bactrs() 


int genseae(); 


, return genetact( READER) ; 


oer bacrd{ ) 
int genread(); 


return genread{ READER): 
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Listing Bel. (continued) 


parewr( en? 


@enar ch: 
genwrite(LIST, cn): 
tendift /* End Conditional */ 
#.faeat LOADER /* NEEDED for the uoader 5ios °/ 


faziine patrd nulired 

taetine patrs nmulst 

fdetine bactwr nuliwr 

endif /* End condational */ 
/* NULL status, read, write routines °/ 

ant nulste() 


ceturn OxFF: 


nar nulrda(} 


return OxFF: 


audwry ohn, ‘* ARGSUSED °' 


thar cn: 


ee 
7 Generi¢ 1/0 routines using l1opyte */ 
1 @ OEE SU TEE TOTO UCU OEE TUTE ESOS TOUS TE OEE SOE ETT OTST E EHH THOT SCT UUTUe / 
i 

ve [Opyte itsels. 


we 


trac .obyte = Ox4l:: 


“* Device operation tables. 3EVINDEX is the indez into the 
tabie appropriate to a device (row) ang its iadyte index (coluan) 


* 
we 
aa 


nonexistent devices are mapped into NUL. 


* 


tieetine DJEVINDEX (((iobyte>*dev) & 3) + (dew *° 2) ) 
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Listing Bl. (continued) 
ine (*sttbiC16])() = { 
ttyra, crtra, vatra, nulst, /* con */ 
ttyrs, auist, sulse. nulst, /* reader */ 
ttyws., nulst, nulist, oulse, /* punch */ 
, ttywa, crtws, Lptws, nulst /* Liaw */ 
3 
chac (*rdtbl(16))() = ( 
etyrd, crtrd, batrd. aulrcd. 
ttyrd. mulrd, nulrd, nulrd. 
aulrd. oulrd, mulcd, aulcd, 
} mulrd. ouird, auled. aulrd 
int (*wreb1[16])() = [ 
ttywr, crtwe, batwr, nulwr, 
nulwe, nuiwr, oulwr, nulwe. 
ttywr. oulwr, nulwe, nulwe, 
ttywe, crtwre, lptwe, nulwe 
/* 
** the generic service routines thegselves 
"/ 
int genstac(dev) 
ine dev: 
return( (*seebl{ DEVINDEX])() ): 
int genread(dev) 
ine dev? 
, reeurn( (*radtbi{OEVINDEX])() ): 
genwrite(deyv, ch) 
ine dev: 
char ch: 
) ( *wetSll OEVINDEX) )} (ch): 
¢ifndeft COADER /* MOT needed for Loader 3108 v7 
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Listing B-l. (continued) 


: vuwerwwewwerawevwawvuwveruresewverevawwwuvENewerVETETTTeTew NTT Eew TTT eee / 


id Error procedure tor 8310S *; 


’ verewerewewenvervaTeNrTVveNTNTeNVeNaweLULEYYEWT EH OrLsVeTELeVeLTerYET EEE eee / 


picserr( errmsg) 
register char ‘errmsg; 


grintstr(“nrBlOS ERROR -— “): 
prvintstr( errmsg): 

prantser(“ nr"); 

while(l): 


princstr:(s) /* used by Dionerr *'/ 
Tagister char "s: 
t 

wraie ("s) lerewr(*s): s ef 1; j}: 


sendié /* End condasional °/ 
tiidef DEBUG ‘* Sondscienal for Sisx GCepbugging Sex outputs °/ 
sutnexci.! *" put a nex sigis so crt *- 
, am Oxf: 
2£ (2 « 10) 
ertwe(2 * ‘O'): 
eLse 
erewre(i + ‘a’ = 10): 
pucthexv(2} /* put an int in hex */ 
agsoa: 
puthexd(i >> L2): 
puchexd(i >> 8); 
puthexd(: »> 4): 
pushexd(i): 
sencsé /* End conditional 7/ 
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Listing 8-1. (continued) 


/ PORTO TESSHAE TASTES VERA EHEREUN UTE TUREC TUTTO UHR THOT UT WETTED HATELY f 
/ CWP SS SERS WASTSE SSSA STAG RTSUHTED RUSS TEVEGETETORHEUHUTHVEV ETHER TE ETE TETY / 


/* */ 
/* DISK 1/0 7 e/ 
* «/ 


/ SN hal eh Rat teeta heheheh dh bth bh hh deh bh hh beh hhh hha pene LpLLELLLSLLLiLit 
/ Si hh hehehe teh hh hh eh hhh hah Er Li PAELLA LILLE LL Lee 2 / 


/ PERS SCSSSSESTHASEASUS SORE HOST ROCAPETVEUUOTWVURTEVIEY WeTaetewvevesaravEeTeuee / 


/* BIOS Table Oefinitions / 


/ baa ha eben heeded bei hh heb indted ink bbb hhh pb pr btLaShiLLRLiLLiriLcLiirrrtrtret tT / 


struct dpp 
int spt: /* sectors per track f 
char ben: /* ploek shift = Log2(blocksize/ 128) ) 
char bla: /* pleoek saask = 2**%peh - 1 */ 
char exe: /* extent cask “/ 
qhar dpb junk: {/* dumay field to allign words */ 
int dam: /* size of disk Less offset, in oloexs */ 
int arm; ; /* size of directory ~ 1 “/ 
char alo: /* reeeervation bits for directory */ 
char ail: {* oe s/ 
ine eka? "/* size of checksum vactor = (drmei)/4 */ 
int att; /* erack offsec for OS boot */ 
cher pan: /* Lag2(seceorsize/ 128) */ 
; char em: -/* givyeical size mask = 2**pan - 1 */ 
struct dph 
char "xltpr - (2 {% => geater tranalation table */ 
int d@pnser{3]; .. /* seracenpad for 3008 .o/ 
char “dirbutp: /* ~> direetory buffer (128 bytes) */ 
struct dpb *dpbp: /* «> disk parameter block */ 
ohar *esvpr /* => aofttware check vector (cks sytes) */ 


char *alvpr /* => alloe veetor ((dsm/3)+1 vytes) */ 
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Listing Bel. (continued) 


(evevrvwwwvvewsverovwvvwureverwruwrnewveNwewETaTELENTVaTweNe TEEN EET eee 


ie Disk Parameter Blocks "/ 
itwewwvevvvveursvvwvvvewwrvewrewvevvewvwurveuuwrvurVvTeNveeruwewELerevesTET / 
“s [P/M aseumes that disks are made of l2G-byte logical sectors. 


"* The Olivett: uses 256—-Dyte sectors on its disks. Thas 810S putters 
vw“ a track at a tige. so sector address translation 18 not needed. 


“* Sample tables are included for several differant disk sizes. 


/" mn Olivetti has 3 floppy formata & a hard disk ome */ 


adefine SECSZ 128 /* CP/M legical sector size / 
sdefine TRKSZ 32 ‘* erack size for floppies, 1/2 track sz for hd */ 
sdefine PSECSZ 256 /* Olivetti physical sector size “/ 
tdefine PTRKSZ 16 ‘/* physical track saze “/ 
*.indef TRANSFER /* Sandaisional for Normal cios °/ 
sdefine MAXDSK 3 /* mam. numper of disks "f 
sancdis ‘* End condicional */ 

siidef TRANSFER J’ Tranter Conditional needs an extra dppb define’: 
sdetine MAXDSK 4 ‘" Osx 4 18 8&8 peeudonvme for diex &, with “/ 
sendié ad an Old-style dpo ca rescue those files. «/ 


“* End conditional */ 


iowwee sot, Osh, Dim. #xm. jnk. dee, drm, alO. ail. cks, off, pen, pam */ 

gcrucc @pb dppd-= /* = 1 side, 167256 secror, 325 crack. 140K ~— *°/ 
i 32. 4, 25, L, 0. 64, 63, OxcC, Oo, 16, 3}: 

struct dpe dpbl# /* wm 2 side, 167256 seecor, 35 track. 280kb << */ 
1 32, 4, 5, L, Q, 134, 62, Oxo, C. 16, 3]: 

struct dpb dpha# /* owe 2 sade, 16°256 seccor, 80 track. 640kbD =—= */ 
i 32, 4, 15, G, 0, 314, 63, OxCo,. Oo, 6, 3):. 

struct dpb dpbj# /* wom 6 side, 32°2356 sector, 180 trk. 86460kb ~~ 7/ 
1 32. §. 31. L. 0. 2154, Sill. Oxf0, o, a, 3}: 

titdeft TRANSFER /* Ganditional Tranter dppb defined nere */ 

struct dpb dpp+= ft wee 2 gide, 16°256 sector. 3$8 track. 280xkp ——- */ 
t 32, 4, a5, i. Q, 220, 63, Ozco, Qo, 16, 10); 

tendif ‘* End conditional */ : 

i” : , bls = 2k dsm = (GiSK size - 3 reserved tracks) / als °/ 

,*™ ols = 4K for hard disk (8640 - 24) 4 *; 

Fiides SECT26 /* Conditional tor 8” flepey drives */ 


;v mmm The Olivett: does not nave 26-sector disks, but gany people do. 
** The following parameter blocks are provided for sheirs use. 
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Listing B<1l. (continued) 


struct dpb dppés /* ~o— 1 side, 269128 sector, 77 trk <-- */ 
’ 3. 7. Q, Q, 242, 63, OxCd,. Oo, 16, 2}: 
struct dpb dpbde /* =~ 1 side, 26°256 sector, 77 trk -<—~ */ 
{ 2. 4, 13, 0, 0, 242, 63, Qxco, G, 16, 2): 
pendif /* End conditional */ 
/ PeCeCTeveseTeLeeTenreETEweEETTeNTeseuEEEvereTeereReeNeNrereuEEEeeeEseees / 


/* BDOS Scratchpad Areas */ 


/ eewewenerenerevTerReveteretereSUETcereeerereeReeeeereneevedteereceee eevee / 


char dirbufl SECSZ); 


ohar esv0( 16); 
char esvi(16); 
ehar eav2(32]: 


tifdeft TRAISTER /* Por Transfer conditional */ 
char esv3( 16); 
tendi£ /* End conditional */ 
char alva(32)> /* (damO / 38) + 1 */ 
char aivi(l32]: /* (damt / 8) * 1 */ 
ehar alv2e2002)}; /* (dam2 / 8) * } */ 

. #ifdet TRANSFER /* for Transter conditional °/ 
char aiv3{ 32]: 
tendis /* End conditional °/ 


/ COR PUTO RE TETETONAUTVETHOU TE TAREE HE SCREEN e TENT TTR PRUeCestvewRowenwe / 


/* Sector Translate Tabla «/ 


/ RFPS T SH STO SEW TOE OES EAE EH ROHS COTES HERR ATTTETEOHEWTETRUSETEWT ANETTA f 


tifdet SECTI6 /* Combitional for 8" floppy drivea */ 

/* ame The Olivetti doses nos have 26<seetor disks, but asany people de. 
7 The following translate table is provided for their use. 

* 


char xbe2z6C26] = { 1, 7, 13, 19, 28, §, Ll, 17, 23. 3, 9, LS, 21, 
2. 8, 14, 20, 26, 6, 12, 1B, 24, 4, 10, 18, 22 |}: 


sendié /* End conditional */ 


char xlel6C3J2j = { i, 2. 3, 4, $. 6, 7, 8, 9,10.11,32,13,14,15.16, 
17,18.19,20,21.22,23,24,25,26,27,28,.29,30,31,32): 
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Listing B-l. (continued) 


z OE ETT OCCT TUTTI TTT USOT H HUET OC YOUVE HEU HUT OC EHD / 


’* Disk Parameter Headers +/ 
/* e/ 
’* Three disks are defined: desk a: diskno#0, drive 0 / 
ie dsk Bb: disknowi, drive | +/ 
ae dak ¢: diskno=2. drive 10 °/ 
, TTT TE OT OUT SUITS TROT VCC CTH ETE OT SOUTH O TET SUEY EY / 
titndef’ TRANSFER /* Nagmal bios dph conditional */ 
struct dpn dphtrap(3) «= 
i t{xiet6, (0, 0, O}, dasbpuf, adpbl. esvO, alvd}]. /*dsk a*/ 
{xitl6. (0, 0, O1, disput, edpol, esvl, alvl), /*dek b*/ 
ixitl6,- (0, 6G. O), disput, &dpp3, esv2, alv2), /*dak c°/ 
tendifé /* End conditional °/ 
tiidef TRANSFER /* Tenafer conditional with extra dpn */ 
struct dph dphtap{<) =» 
i ixilnié, (0, 0, O}, darpudg. adpbl, esvO. alvd}, ("dak a*/ 
ixilsl6, iO, 0. O]. dirbud, Gdpol, esvi. alvli, {*der pt/ 
imicilé., 10, 0, OO}. dasbus, sapes. casv2. alv2), {dex o*/ 
ixicl6. 1G. 6, O], Garbut, sépps. esv3,. aiv3}. /*dak @®/ 
tene:? - f* End conditionas, */ 


OPES ESTOS OST SESS EOE HT OST THES T HTT SEVEV SSS ETOP VUEKECESCHETETEVUETTCT TVET ETH Eee / 


. currently Selected Sisk Stuff */ 


OE OTT ET TOTTI TOUTES ESTE CUTE O RESCH STEW / 


:At settrk, setsec, setdsak: /* track, sector, disk @ */ 
Long setama: '/* d@ma address with segment info: long */ 
cag trkbufl TRASZ * SECSZ]: /* erack buffer «/ 

at tovalid = 0: /* track buffer valid wf 

at codirty = 0: /* traex putter dirty ‘*/ 

nt cbotrk: /* track outfer track #€ °/ © 

aT todak; ‘s track butter disk # °*/ 

ant askerr: /* disk error */ 
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Listing B-1L. (continued) 


/ POT ET RRC H OE WOE TUTE Oe TAROT THUONG TERETE RACH WRT ETHER EON EHOCTO NONE THUTTEUD / 


/* Disk 1/0 Procedures °/ 


/ BOW GR 8S GOSH SESE ESSE ETEENAAEU EEE TED SERESEEE CATS UAAARECADTRTEREEETUCEY / 


dekxfer(dsk. trk. buftg. cmd) /* transfer a disk track */ 
vegister int dsk, trk, cmd: 
Fevister ehar “bufp: 


This is a handy place to keep notee on Oliveeti block 
mumbering. For a floppy, bits 3-0 are sector, bit 4 is side, 
and high-order bits are track. We define a floppy to have 
twice as sany sectors as there are on a track: chus, the | 
sector number overflows to the side bit and all is well. On 
the hatd disk, Sits 4°0 are sector (there are 32 per track), 
and the high-order bits are (track*6)+surface, where surface 
ig in the range 0..5. To sake the indexing of trkbuf consistent. 
we define a hard disk to have only 32 Logical (16 physical) 
sectors per track, Like a floppy. Thue we will transfer only 
half a track to/from the suffer at a time. and the logical 
sector number will overflow into the real high-order dit of 
che sector number. Thia works because we will always move 
half a track at a tine. The tracks and surfaces siaply take 
care of chemseives, incrementing through she surfaces and 
effectively ainiaizing seeks. 


*/ 
‘ . 
ine blknuar 
if (dsk=m2) . 
dak = 10; /* convert hard diak drive ¢ ‘*/ 
tifdet TRANSFER /* Conditional reasignment for Transter */ 
it(dakem3) dsuk © 1; /* for tranafer disks */ 
tendif /* End conditional */ 
dskerr=0r /* asaume no error “/ 
/* do transfer */ 


titdet C£BUG /* Conmditionad OEBUG cucpue */ 
olknum = erk*PTRKSZ; . 
printatr("“axfer block “); 
guthexzv(blknuam) : 
princstr(” unis *); 
puthexsd(dsk); 
printser(”’ track 7); 
puthexy(trk); 
if (cmd == OSKREAD) 
erinesatr(" cead");: 
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fencit 


tdeline 
tdetine 


trindet 


fluan() 


| 


f.late 


i:tndeé 


terdif 


Listing B-l. (continued) 


printsers(” write”): 
ertwr(10): erewr(l3): 
/* End conditional */ 
12 (0 Im Gisk_io(dsk, cmd. PTRKSC, crx "PTRKSZ, map _adr((long)bufp,.0))} 
dscerr=\: 


wrongtk ((1 tpvalid) (] (tberk !8 secerk) I{ (cbesk (= setdsk)) 
gettrk at (wrongek) filitcp() 


LOADER /* NOT needed tor Loader Bice */ 


af { tBdisty @@ tbvalid ) dskxfer(tbhdsex, tberk, trkbuf. OSKWRITE): 


spdirty = G; 


-" End condizrenal *- 


LOADER ‘* NOT needed by Loader Bios °/ 
af) tivalid a& spdairty ) flush(): 

J* End condatienal */ 
desxxter(setasex, settrk, srkbufs, OSKREAD): 


cbvalid = 1; 
zbpdircy ® 0: 
sbtrk = setsrk: 
sbdask = setdanr: 


acread() 


registers char ‘“p: 


geturk: 
p = etrkbuf({SECSZ ° (sersec~1)]; 
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Listing Bl. (continued) 


/* transter between memory spaces. setdma is physical address */ 
mea_cpy(map_adr((long)p, CDATA), setdsa, (long) SECSZ) ; 


return(dskerr); 


tifndef LOADER /* NOT needed by Loader Bios it doesn't write */ 
daskwrite( sede) 
raed mode: 

vegiater char ‘pr 


gettrck; 
p ™ Strkbut{SECSZ * (setsec~1)]; 


/* tzyansfer between memory spaces. setdma is physical address °/ 


mem_cpy(setdma, map_adr((long) gp, CBATA), (long) SECSZ): 


thdirty = L: 
if ( sode == | ) flush(); 
reatucn(dskerr); 
tendit /* End conditional */ 
char sectran(s, xp) 
int a? 
qnas “xpr 


; if (xp i= 0) caturn xp{sJ; else ceturn s: 


struct dph “*seldisk(dak, Logged) 
vegister char dsk; 
char logged; 


tegister struct dph ‘dpho: 


1f (dak > MAXOSK) reeuorn(OL); 
setdsx = dex: 

dohp * sdpneabfdsk]; 

if (dphp >= dphtab + (sizeof(dpnead)/sizeoft(struce jph)) } ceturn(OL); 
te | Legged ) 


/* ome disk not Logged in. select density, etc. == */ 


} 
_feturn(dpnp) ; 
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Listing B-l. (continued) 


SOV TCT FTTH TREES TYE TVW TE we TUTTE TET Pew HTT EH eT eH He eee wee eeTerET / 


PVT TT TET ESET TET HT OSCE SCH UTE WS TEV ETE ST VEE SECT HBEVTTT TF EseeETeE . 


on vi 
_ BIOS PROPER “/ 


COMP VTE HSE THTOSHK CSTE SHSHP COTE ETFS TTCETOSTVTTVCHEH VTE TTTVEFeESTTPEFTV EVE KT FE FETT eS i 


TV COE OTT TOMS ESET ETE THOT ETO THETA WET TUT TTT TUT TET SOUTH OUTHE TET ETH e TES / 


piasimze() 


titdetl DEBUG /* Conditional banner far DEBUG °/ 
prineser("enCP/M-8000: Olivets: M20 BLOS DEBUG"): 

tend.i ‘* End conditionas *! 
‘* sertinit(KBO):*, ‘* DON'T unit keyboare serial port "/ 
serinit(RS232); ’* umat rs232 serial pert °/ 
tovalid = 0: ‘™ anmat disk flags v" 


spdarsty = 0: 


'* Foidowing reset of 1oovte on each warm boos has beer 


“S vemovec. se tnat STAT car reassign aevices. 1abvte = ¢°: 
‘* 2S mMOw inizial.zed or 2948 9002 Only. . 
‘* opyte # Ox4i:; °°: “* gon, lass 8 CRT: rar. ounen = TTY ‘Ys 


" in wne SOADER bios, the main routine is called “bios”, not “pics” %/ 
*.tdaef LOADER /* weader Bios conditional */ 
tdecine dios Silos 
sendif /* End conditional °/ 


tong _bies(a0, dl, a2) 
amt ao: 
kong dil, da: 


switen( do) 
case 0: ‘e INT? °; 
Diesiniti): 
orean: 
a 
#:.indef LOADER /* Nermal 3108 use */ 
case 1: ‘* weOOoT */ 
wooot(); 
preaxk: 
aandif /* End conditional */ 
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Listing B-1. (continued) 


case 2: /* CONST */ 
return( genatat(CON)): 
Break? 

cause 3: -/* COMIN */ 
taturn( genread(COM)); 
break; 4 

case 4: /* CoNoUT */ 
genwrite(COM, (char)dl); 
Dreak: 

$ifndet LOADER /* Mormal Bios use */ 

@ace 5: /* UlaT */ 
genwrite( List, (char)dl); 
preak; 

case 6: /* PUNCH «/ 
genwreice( PUNCH, (char)dl): 
break; 

case 7: /* READER “/ 
return( genread( READER) ): 
break; 

case 8: /* OME / 
settrk = 0: i 
break: 

tendif£ /* Bad conditional */ 

case 91 ; /* SELOSK */ 
return( (long) seldiak((char)dl. (char)d2)); 
break: 

case 10: /* SETTRK «/ 
settrk * (int)dl; 
break; 

case li: /* SETSEC */ 
secsec * (int)dl: 
break; 

case 12: /* SETOMA “/ 
setdma = dl; 
break: 

case 13: . /* READ w/ 
return(dskread()): 
 Sreak; 
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Listing B-1l. (continued) 


t.inde‘s LOADER /* Normal Bios use */ 

case 14: (* WRITE s/ 
return(dakwrite((char)dl)): 
DreaK: 

case 15: /* LSTST */ 
return(genstac(.2:ST)): 
Break: 

send:é - ¢* End conditional *°/ 

Case 16: /* SECTRAN */ 
return( secetran((intidl. (enar’)d2)): 
oreaxk: 

case 16: /* GMRTA / 
return( (long )&meatah): 

Dreak: 
tiindef LOADER /* Normal Bios use "/ 

case 19: ‘* GETIOB “/ 
feturn(( long) icbyce:: 
preax: 

case 20: ‘* SETIOB s 
Lapyte * (cnar)di: 
oreax: 

case 21: /* FLUSH hard 
flusn(): 
return( (long )dskerr): 
oreak: . 

atendif /* End conditional */ 

case 22: /* SETKXVECT / 
return( setxvect((intddl. d2)): 
break: 


/* @nd awiseh %/ 
return(Q); 


end pios procedure ‘, 
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Listing B-2. Normal BIOS Assembler 


p RENAE HERA RREEREHERHRHERHEHERERUNE RN EHH 


;Build the assembly nodules using conditionais 


wa ext «sect 


7. 


by setting the value of the label LOADER false 
3(0) the normal Sios code will be generated 
twhile setting the label to true (1) will 
;provide the loader Bios code. 


LOADER .equ 0 : Lor O which ever 


=e Me 


-input "biosdefs.8kn" 
-input “biosboot.8kn" 
-input "biosi£. 8kn" 
-input "“biosio.&8kn" 
-input “biosmeam. 8kn" 
-input “biostrap.3kn” 
-input “syscall.gakn” 


Fie A tia tiatiaatieiaatiedtaliatiadiaiatieiatdadalialialiaiatia tia tiaialaliaite ie ialiieheielielatadiaiaheieietaiaiatelel 
77 
7* Data 
;* 
: ry TrELorrLILOCCOCCORRRER eRe RERheeeanen Re ehhh eRe eh eee tik hed fh 


_.9S8:2 .sect 


_sysseg: .block 2 ;system segment 

_usrseg: .block 2 ;user segment 

WSyssex: .block 4 :system stack pointer 

_P Sap? block + iprogram status area ptr 
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Listing B-3. (continued) 


2ewrrerr re rT eee ee Tee TT eee ee eT eae Tea Tee eee ee Tee 


°* Trap vector table 
¥ 


entries 0..31 are misc. system traps 
_* entries 32Z..47 are system calls 0..15 


i ee ee eee ee ee  D 


-Dlock NTRAPS*4 


* ee ee ee ee ee ees 


~ £2 errrwevevcrT re rerrrrTewrreree rere eee Ere Re Tee TKK re eT 


wwwws 8/15/84 R.F.W. T**4YY 
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Listing B-4. BIOS Assembly Language Definitions “ 


;wewetewew Diosdefs.8kn cpm.sys tcpmidr.sys*********** 


7* Assembly language definitions for 
;* CP/M-8000 (tm) BIOS 


?* 821013 S. Savitzky (Zilgq) -- created. 


; RAS EMA ARATE ARUERUCREREEWTERREENRRRARWTHEH 
: * 
?* System Calls and Trap Indexes 
® 
e 
a 
p PREACHER OR ARH RRURARRE ERAN ANE RENHRN ERE EWEN HW EWE NS 


XFER_SC .equ 1 
BIOS SC .aqu 3 
BDOS SC .equ 2 
MEM SC. equ l 
DEBUG SC .equ *) 


7* the traps use numbers similar to those in the 
:* 68K version of P-CP/M 


NTRAPS .equ 48 ;total number of traps 
SCOTRAP .equ 32 itrap # of system call 0 


728000 traps 
7EPU (floating pt. emulator) 
;seqmentation (68K bus err) 
snon-maskable int. 
ipriviladge violation 
;Interruptes, @tc. 
; trace 


EPUTRAP .aqu 
SEGTRAP .equ 
NMITRAP .aqu 
PITRAP .aqu 


wo oOonre 


TRACETR .equ 
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Listing B-4. (continued) 


~_ Fer aerrrrerrr ener Tere eT eT ee TTT TEE T TTR Tee ee TTT ee 


.* 
: 


:* o Stack 


* 


. 
a 


A & stack 
SolLlowed by 


The caller adjusts 


frame equates 


Returned value is in 


, 


frame consists of tne PC on ton, 
the arguments, lLettmost argument first. 


she stack on return. 


(ant) or rr6é (long) 


“pee eee eRe REE RERARAAAAA RAR RAR EAE SAAR A RA RRA RRA SS SB] 
’ 


PCSIZE 
INTSIZE 
LONGS IZ 


ARG. 
oe 

Nhe 
ARGS 
ARGS 
ARGS 


.egu 
-equ 
-egu 


-egu 
.equ 
.eGk 
-egu 
.equ 


2 
2 
4 


PCSIZE 
ARGI+INTSIZE 
ARG2+INTSIZE 
ARG3+INTSIZE 
ARG4+INTSIZE 


7>PC size non-segmented 
:INT data type size 
;LONG data type size 


rinteger arguments 


. RUC TEEPE SKEET ESET ELECT TT TTT TEKST EET 


NOTE: 


Seqmented Mode Operations 


segmented indirect-register operations 
can be done bv addressing the low half 
of the register pair. 


i i ee ee eee ee ee eee ee ee ee ee ee ee eo 


SEG 


NONSEG 


. MACRO 


ldetl 
set 
ldesl 


; START seqmented mode 
+ rO destrovecd. 


: END segmented mode 
; rO destroyed. 


rQ0,FCw 
r0,#15 
FCW, r0 


9) 
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Listing B-4. (continued) 


seall . MACRO ? (segaddr) segmented CALL 
word O5F00h 
. Long 71 
. ENDM 
sscall .MACRO 7 (| segaddr | ) short segmented CALL 
.word  OSFOOh 
word a1 
- ENDM 


ord «equ 0 | 7;WORD caller r0O 

erl -equ  cro+2 ; WORD caller rl 

er2 -equ  cri+2 7WORD caller r2 

er3 -equ  cr2+2 ; WORD caller r3 

er4 -equ | ¢r3+2 ; WORD caller r4 

ers equ or4+2 7 WORD caller r5 

er6 -eaqu ocr§+2 ; WORD caller r6 

er7 .equ 6 ¢r6+2 7 WORD caller r7 

ers - eequ o cr7+2 — >WORD caller r8 

ex? -equ cri+2 7 WORD caller r9 
erlo ,@qu | cro+?2 7; WORD caller rl0 
erll -equ crlO+2 ; WORD ealler ril 
erl2 -equ crll+2 ; WORD caller ri2 
erl3 equ 0 oerl2+2 + WORD caller rl3 
arl4 -equ  ¢rlj+2 7 WORD normal rl4 
nriS eequ.o nrl4+2 ? WORD normal rls 
scinst .equo nril5+2 ; WORD SC instruction 
scfcw -8qu scinsat+2 ;WORD caller FCW 
scsag -equ scfcwr2 7; WORD callar PC SEG 


scpc -squ scsag+2 ; WORD caller PC OFFSET 
FRAMESZ .aqu scpct2 
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Listing B-5. Olivetti Bootstrap Initialization 


7 =éwewew* piosboot.8kn for cpm.sys + cpmldr.sys*****? 
:* Copyright 1984, Digital Research Inc. 


~wW 


* Bel013 S. Savitzky (Zilog) -- adapt for nonseg. 


7* 820930 S. Savitzky (Zilog) -- created 
7;* 3408.3 R. Weiser (DRI) -- conditional assembly 


.® 
+ 


_ FORTE RHE KERR EET EET TET ERT ETEK eK TeKrKw rT eH YTeEST Te 


* § © 8) 8 8 


PS os 


¢ 4 8 ® 4 


tf ee eee eke eee RRR RRR ER REARARARE RARE ERAT EER RE TE Ee tk": 


* NOTE -- THIS CODE IS HIGHLY SYSTEM-DEPENDENT 


This module contains both the bootstrap 
writes. and the code tnat receives control 
acter being booted, 


The main function of the latter is to make 
sure that the system, whose entry point is 
called “bios”, is passed a valid stack 

and PSA pointer. 


Although chis code runs segmented, it must 


be linked with non-segmented code, so it 
io0oks rather odd. 


. oho e ee ee eee eee RRR SEAR AAR LALRL SEE EEE ST Es tS ee | 
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Listing B-5. (continued) 


y PARRA ARAAHRREAKRARE RAE AHERE EER URRERRRNRENER NHR 


;* CP/M ~ 8000 on the Olivetti M20. 

of 

:* Olivetti'’s peculiar format, has a lot of 

:* Olivetti‘s file system in it. 

72 

:* Track 0 is umised except for sector 0, since 
i* it is single density and thus has smaller 

7* sectors. 

.f? 

i* A total of 10 tracks are resarved from CP/M, 
:* leaving 9 tracks for the system proper. 

® 

;* The first sector om track lL is the PCOS file 
:* descriptor block; the second is the boot file 
:* header and the start of the system code. 

~* 

:* This leaves something under 28K for the 

7* system (8T0S+8D0S+Cc?). It is assumed that 
:* the system starts at its Lowest address, 

;* and that data follows immediately after code. 
2 . 

:* For now, we asgaume that the system starts at 
;* <<11>>0000 (hex) for normal systen 
37” <¢10>>0000 (hex) for beot system 

-* 


¢ REEMA AWA AUEHEHERENRERRARRKRERARUREKRERREENHAENG 


- 


p PARE RARER EERE H WERNER ED ENE NH RARER EERE ERAE REE 


;* Globals 


Bieta eee ee eee he bee reer reer rE eee er rrr rote to 
.i£ LOADER 


-Jlobal ostartld ;entry to read system tracks 
-endif 
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Listing B-5. (continued) 


iii et ee eee ee ee eee eee eee eee eee ee te eee ee 2 2 
‘ 


-* 
7 


>“ Externals 


.* 
‘ 


i ee eee eee eee eee eee eee eee eee. Le ee es 2 ee 
' 


-Global bios 
.25 LOADER 


-else 


7 no warm boots in loader bios 


-Global _wbhoot 


-endif 


Tw TTT TECK ETT ETT REET ETS TT ESTE EEE EEE ETEK VEE TEE 
‘ 


~* 


7* Constants 


-_ 


x 


* wT EEE EEE TET OE SEE EEE EET TEE ET TEE EEE TESTU UE THE TEE 


BOCTSYS 
BOOTSTK 


SYSTEM 
SYSSTK 


sscall 


..5 LOADER 


-equ 
-eqdu 
-else 
-equ’ 
equ 
-endif 


equ 


.equ 
-equ 


-macro 
-word 
word 
-endm 


QOA000000h :System address on boot 

BOOTSYS+OBFFEn ;svstem stack top on boot 

oB000000n ; System address 

SYSTEM*+OBFFEn 7 system stack top 

16 ; #hblecks in a track 

256 7 #pytes ina sector 

9716 : blocks in boot 

24 : #bytes in header 

256* (NBLKS~-1 ) : Sile data size 

FILSIZE~HDRSIZE : total system size: 

, BPS-ADRSIZE ; data in sector i 

04000000h 

02000000h 

SEG2+100h ; system PSA 

SEG4+100h : PSA in PROM for boot 
;short segmented call 

05 £00n 

71 
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Listing 8-5. (continued) “4 


; RRR AERAREENE REE EARERERERHNERERREREEEARERURUEERET ER 
2 

é 

;* Entry Points and post-boot Initialization 

; 


; ee ARAN RUUAURRERREEREEATEDURRERAREREEEREENUEE 


7* transfer vector 


if LOADER 

else : no warm boot in the loader bios 
jr whoot 

eendif 

jr entry 


7* pest-boot init. 


antry: ; SEGMENTED 
.if LOADER 
_startlid: 
-endif 
DL VI,NVI 
.if LOADER 
ldl rrli¢, #BOOTSTK ;init boot stack pointer 
-alse 
ldl rrl4, #SYSSTK rinit normat stack pointer 
-endif 
lal cr2, #*SYS5PSA * eopy PROM's PSA 


Ldetl r4, psapseg 
ldetl cS, psapott 


ld r0, #570/2 
ldir @r2,. ard, rd 
ldl er2, #SYSPSA ; shift PSA pointer 


ldetl psapseg, v2 
ldetl opsapotft, ri 
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Listing B-5. (continued) 


ied r2,#142h ;CROCK=<--— turn off 

ic r3,#lieh > usart interrupts 

out @r2,xr3 

ldar r2, $ 7 go 

ld r3,%#bio0s 

3p @r2 

.i1£ LOADER 

-else ‘rne wazmboot in loader bios 
wooot: ldazr r2, § 

id r3,#_wboot 

jp @r2 

-endié 
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Listing 8-6. BIOS Assembly Language Interface a 


waweewes biosif.S8kn for cpm.sys + cpmldr.sys ******~* 
Copyright 1984, Digital Reswarch Inc. 


Assembly language interface for CP/M-8000(tm) BIOS 
sn=—~ System-Independent ----~- 


821013 S. Savitzky (Zilog) -= split into modules 
820913 S. Savitzky (Zilog) -— created. 
840811 R. Weiser (DRI) ~~ conditional assembly 


“se se 84 Se Me M8 Ge ue Me NS 
Oe ERR EE HH 


text: .sect 


RAMA ARRERRLENHHARARHERRERHUNREHARRREARAERELHTHE TET 


& 
. 


The C pertion of the BIOS is non-segmented. 


se Se Naw te Me 


eee ep e# he 4 4 GM 


This assenbly-language modula is assembled 
non-segmented, and serves as the interface. 


Seqmented operations are well-isolated, and 
are either the same as their non-segmented 

counterparts, or constructed using macros. 

The resulting code looks a little odd. 


ey eS 7 


’ 
fp REE HEE ERE EEO ETE TENE RHEE NES 
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Listing B-6. (continued) 


Cer ee eee EEE Ee eee TEST Eee See ee eee eee eee 


. 


:* Externals 


’ 


T 


rT eT TT TEETER TVET ee TRTeTe rr vrERTewTeTnewerest 


-qlobal 


_DLOSinit 


.i2 LOADER 


-global 
-else 
-Global 
-global 
-endis 
-Sloba. 


-Global 


~ & 


« ¥ 
: 


_ldepm 


_ftlush 


cep 


trapinsit 


7C portion init 


If LOADER is True then 
Load the system into memory 


+ else its the normal bios 
*FPlusn bpuéfers 

:;Command Processor 

> end conditiona.s 


trap startup 


Sap, _sysseg, _sysstk 


7* Global declarations 


eee eee eee eee eee hee RR RRR RARER RAR RRR ERE SERRA ED 


* EEO EEE ETE EERE SET SET TESTE EET TE TE TERETE 


-Slobal 


bios 


.i5 LOADER 


-else 
-Gilobdal 
-endisé 
-Global 
»Globai 


_wboot 


_input 
_output 


initialization 
iz Loader stub out _wboot 


se te 


: warm boot 


input a byte 
output a byte 


+e se 
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Listing 8-6. (continued) os, 


pO A EARNER EEE AERA NENA E MEE A ENE E SNES 


:®* Bios Initialization and Entry Point 


Pm 

:* This is where control comes after boot. 
:* If (the label LOADER is true 1) 

:* Control is transferred to -ldcpm 

:* else . 

;* Control is transferred to the cep. 

7° We get here from bootstrap with: 

7” segmented moda 

;* valid stack pointer 

;* valid PSA in RAM 


’ 
RRNA EEE HERRERA EEA A EHH E RESTO ER EEE SEEN SEEN EASY 


bios: 


; enter in segmented mode. 
; Get system (PC) segment into r4 


DI VI,NVI 

ealr kludge ; gat PC segment on stack 
kludge: popl rr4,-@r14 
? get PSAP into cr2. 


Ldctl r2, PSAPSEG 
idetl r3, PSAPOFF 


; gO non-segmentad. save PSAP, system segment, 
; system stack pointer (in system segment, please) 


NONSEG 

idl _psap, rr2 

la _sysseg, r4 
ld rl4,_sysseg 
lal — sysstk, rrid 
.if LOADER ~ 

-else 


; set up. system stack so that a return will warm boot 
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Listing B-6. (continued) 


push @rl5,# wboot 
-endif 
7 set up traps, then enable interrupts 


call _trapinit 
=I VI,NVI 


set up C part of Bios 


call _biosinit 

: Turn control over to. command processor 
-if LOADER 
JD _idepm =; do Program load 
-else 
Ip ccp 


. WTC TET ECTS TTT EE EERE ETRE TRS ETP 
Warm Boot 


flush suffers and initialize Sios 
then transfer to CoP 


2 EEE SEES SESE ETEK SRE LTETeE TET TTT Tee Te eee 


wooot: . 
call _tlush 
call _biosinit 
idl rrl4,_sysstk 
IP cep 
-endist 
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Listing 3-6. (continued) a 


2 UREA ERA ENE EEE ERE EEE EAE ER EEA EEE EASES OS 


7* 1/0 port operations 


7* int = input(port: int) 
:* output (port, data: int) 


‘ 
PED Lt td dd kod alalabaliataiaiaiaiaaiiaiaiaieiaiaiaeeiaiaballl 


_aput: 
ld r2,ARG1(r15) 
subl rr6, rr6 
inb rl17,@r2 
ldb erl6,r17 
ret 
output: 
ld r2,ARG1(r15) 
ld _£3,ARG2(r15) 
outb @r2,r13 
. ret 


eetetetrrrtrerire re Eee Lolth 
A La aS t Et LeeLee Data ialadatahi athe tahateiaetalialeieiaieiaaieiaieiaiaieiebeiaiel 
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4% # © #£# 


Listing B-7. BIOS 1/0 Routines 


;"w™ewewe piosio.8kn for cpm.svs + epmidr.sys **"**** 


Copyrignt 1984, Digital Researeh Inc. 


I/O routines for CP/M-8000(=m) BIOS 
for Olivetti M20 (28001) system. 


S21013 S. Savitzky (Zilog) -- created. 


;* B40815 R. Weiser (DRI) <= conditional assembly 


ERTS KSEE SECRETE TERE KET ETRE WHEE EE VEE eee 


Ld 


7“ NOTE The Olivetti PROM routines are segmented. 


:* The © portion of the BIOS is non-segmented. 
:* This assembly~iangquage module is assembled 
_™ lon~segmentec, anc serves as che interface. 
7* Segmented operations are weli-isolated,.and 


* are either the same as their nan-segmented 
* counterparts, Or constructed using macros. 


ESE EEC REE CETTE ST TEKST TST SESE TTT TSE VE KEES ET EWE 


2 EERE LS ESSE SEE EET TET ET SEA EERSTE CEH RTESTEEMESE Et 


‘. 


“ Glopal declarations 


_* 


OTST RETESET ERE ESTERS TEE TT SP ETE TTT Te eS 


-Globai _disk_io 
-Global crt put 
-gGlebal _coid_boor 
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Listing B<-7. (continued) 


; HEM RRAUAATUECARAARRAKAARRAWRNURAREAARRARAAAAERAREKRERKER 
e 2 

a 

>* Prom Subroutine Access 

o” 

i] 

: SOSH SRA GEAR WABAWAAIRAWAWATAWAANRAWEUWERRY 


_disk_ios rerr=disk_io(drv, cmd, count, blk, addr) 
dec rlsS, #14 ;save registers 
lam @rl5,68,#7 
ldb th7,14+ARG1+1(r15 ) iget args 
ldb £17,14+ARG2+1(r15) 
1d. cS, 14*#ARG3(r15) 
ld c9, L4+ARG4(rl5) 
ldl erl0, L4rARGS(rlS) 


:rh7 = drive $ 

tcl? = command 

7r8 0 «= block count 
= 


ir9 block number 
ierrlQ = segmented addresa 

SEG 

scall 934000068h 

NONSEG 
7r8 = plock count not transferred 
trh7 = tratrias 
ivl7 = final error code (RETURNED) 
:ch6 = error retried 

and c?7, #O0FFh value returned in r7 

ldm r8,ar15,#7 ;restore regs 

ine rls,2l4 

ret 

Lert put: ert put( char) 

dec rl5S,#14¢ ;save registers 

ldm @rl5,r8, a7 

ld rl, l4+ARG1(rl15) :get arg in rl 

SEG : SEG clobbers r0 

la r0,rl 710 = char 

seall 84000080h 

NONSEG 


B=45 
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IF ™-B00C System Guide 3 


cola boot: 


SEG 
scall 
NONSEG 
ret 


Listing B-7. (continued) 


irestore regs 


8400008Ch 
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Listing B-8. Memory Management BIOS 


;*eeee** pioamem.8kn for cpm.sys + cpmldr.sys ******** 


;* Copyright 1984, Digital Research Inc. 

e® . 
?* Memory Management for CP/M-8000(tm) BIOS 
7* - for Olivetti M20 (28001) system. 

«2 


7" 821013 S. Savitzky (Zilog) <= split modules 
7* 820913 S$. Savitzky (Zilag) — created. 
** 840815 R. Weiser (DRI) -— conditional assembly 


text: .sect 


RUA RAEAAAREARECHREEURRERAURARURHARHERARRAKRAEREREUNEAS 


This module copies data from one memory space 
to another. The machine-dependant parts of 
the mapping are well isolated. 


Segmented operations are well-isolated, and 
are either the same as their non-segmented 
counterparts, or constructed using macros. 


ee eee eu ee eH 


e 
‘ 
« 
? 
e 
‘ 
e 
‘ 
e 
¢ 
° 
’ 
; 
e 
‘ 
* 
‘ 
? 
; RERANCH ERAGE RURAHWAIRERHRRNERARRRARRANRREEERERY 


RARRARERRABAERRARRAAARAEARRERAEABHEEREAERERBRARRHERET REET 


* Global declarations 


ee se we eo 


PRARRESEHAERARAREREH RUAN UBDRUREARRUEEREERAEREERHRUERER 


‘Global _sysseg, _usrseg, sysstk, _pseap 
-global mnemsc 


2 PRR RW ERR M AR RRREUHHRHA RENEE UHRRAREHRHREEERERRE 
* 


;* Externals 
2 


‘ 


o PRR EHR WERTH RRR HEE HONE RR HRERRAOHRHT TERS 
e 


-global xfarsc 
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Listing B-8. (continued) 


— tee Peete eee eee RRR RR RRA ERR ERR ARERR RRR ER RRA ARE OD 


:* System/User 


Memory Access 


:* _mem_cpy( source, dest, length) 

:* long source, dest, length: 

;* map_adr( addr, space) -=> paddr 
* long addr; int space; 

;* map_adr( addr, -1) -> addr 


7 * sets 


:* _map_adr( 


7 
7* space codes: 
» 


a 
ua do Ge bod 


* 
Fad 
+ 
nN 
wn 
a 


user seg? 


addr, 


from addr 


-2) 


control transfer to context at addr. 

:* system call: mem_cpy 
* rré: source 
:* mrs dest 
7 Tr2: Leneth (0 < length <= 64K) 
:* returns 
:* registers unchanged 
:" system call: map _ adr 
* rr6é: logical addr 
;* rs: space code 
:* r4: ignored 
. rr2: QO 

returns 
* rr6: physical addr 


data 
program 


caller 
caller 
system data 
system program 
TPA data 

TPA program 

3, 5: 


x21, segmentec I-space addr. 


instead of data access 


set user segment 


PoP Pe RRR ERR R ERA REE RAR RA RARRER RAR RAR RRA RAR RRR RRR ERD De 
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Listing B-8. (continued) 


memsc: ;memory manager system call 

CALLED FROM SC 

IN SEGMENTED MUDE 
rr6: source 

rr4: dest / space 
ro2: Length / 0 


=e Se 26 “se “Os 


— testl rr2 
jr z nem map 
mem copy: ; copy data. 
2? rr6: source 
> era: dest 


rr2: Length 

ldirb @r4,@r6,r3 

ldl rr6,rr4 ; rr6é = dast + length 
ret 


mem mapt : ; map address 
3; ere: source 
7 04: caller's seg. 
7, £5: space 
7 c2: caller's FCW 


NONSEG 
cp cS, #2 i Space=-2: xfer 
jp eq xfersc. 
la ra, scsegr4( rls) 
ld £2, sefewrd(r1S) 
calr map _ 1 
ldl erée4(rl15),cr6 ; return rré 
SEG _ 
cet 
map_l: ; dispatch 

cp e§, #OFFFFh 
jr eq set usr ; space"-l: user seg 
cpb rls, #0 
jr eq call_data 
cpb cls, #1 

. jr aq call prog 
cpb el5, #2 
jr aq sys_data 
cpb rl5, #3 
jr eq sy$_ prog 
cpb cls, #4 
jr eq usr _ data 
cpb rls, #53 


jr eq usr prog 
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Listing B-8. 


Tet 


ic _usrseg,r6 


& Sampie B850S Written in 


(continued ) 


idefault: no mapping 


~l: sat user seg. 


;™™* THE FOLLOWING CODE IS SYSTEM-DEPENDENT **7* 


 ® 


:* rr6= logical address 
;* r4 = caller's PC segment 


:* r2 = caller's FCw 
;* returns 
:* rr6= mapped address 


a 8 8 


for access as data. 


ar) 


Ca... data: 


bit z2,#15 
ret nz 

1d r6,r4 
ret 


bit r2,#15 
jr nz map prog 
1d r6,°4 : 
jr map _ oroeg 
Svs data: 
~ id ré, _sysseg 
ret 
SVS orog: 
ic 76, _sysseg 
ret 
asr data: 
~ ld r0, #-1 
cp rO, _usrseg 
ret eq 
id r6, _usrseg 
ret . 


Most of the system dependencies are in map prog, 
wnich maps @ program segment into a data segment 


segmented caller? 
yes-- use cassed seg 
nO =~ us@ pe segment 
already napped 


segmented caller? 
yes-~- use passed seg 
no -- usé pe seqment 
Nap prog as data 


assume svs does not 
separate code, data 


~ 
et 
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Listing B-8. (continued) 


usr_prog: 
. ld r0, #-1 
cp x0, _usrseg 
jr eq = map_prog 
ld r6, usrseg 
jr map prog 
map prog: imap program addr into data 
7 er6 = address 
testb rhs + data access? 
ret nz ?; no: done 
and r6,#7FO00h extract seg bits 


“6 


+ Olivetti: segment 8 is the only one with 
: separate I and OD spaces, and 

t : the program space is accessed 
; as segment 10's data. 


_-@pb ij «rhé, 48 
ret ne 
lab rhé, #10 
ret a 
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Listing B-9. BIOS Trap Handlers 


;vwyeerwwh* Hiostrap.8kn cpm.sys + cpmidr.sys ****** 


:* Copyright 1984, Digital Researen Ine. 

;* Trap handlers for CP/M-8000(tm) BIOS 

* 321013 S. Savitzky (Zilog) == created 

:* $21123 0. Duniop (Zilog) —~ added Olivetti M20- 
:* specific code to invalidate track buffer 
:* contents when disk drive motor stops 


: (fixes directory-overwrite on disk charge) 
:* 830305 D. Sallume (Zilog) ~~ added FPE trap 
:* code. 

>* 840815 R. WEISER (DRI) -- conditional assembly 


“2xXt: .seet 


weer 


— PVPS KT TTPO TK KEEFE eK Ke eT ee TFET TET See Ee TEES 
/* NOTE 

:* Trap and interrupt handlers are started up 

;* in segmented mode. 


a Ww 


EMP OSE TSEW RESETS ETEK HTS ERE TEV ST SST eVTeTT TW 


2 TOTS TPT TKS SET ETE TTS TTT TESS STE ET VETTE TT EK EEE Tee EET eae 
; 

ao © 

. Pi 

; =xternals 

« © 


eee eee eee eee RRREARER EER ARAR EER AAA ARAL ERR RAR RARE ARA LEAS SD S| 


.if LOADER 

-global dios : © portion of Loader Bios 

.else 

-global bios ;:C portion of Normal Bios 

-endif . 

-Slobal memse¢ ;memory-management SC 
-Global _tbvalic ‘disk track buSl valid 
-global _tbdirty idisk track buff is dirty 


-global sysseg, _usrseg, _sysstx, _psap, 

-if LOADER 

-else + omly the normal S3ios 
-global fp_epu 

-endif 
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Listing B-9. (continued) 


: RREHMEAAKAALARAEREKRNERARE AHHARRARNERANRRAEAAEERAETEHENEAR 
: * 

?* M=-20 ROM scratchpad RAM addresses 

«# 

a 

; RRMA ARVEAHAAARRERAERARHRRREREHERARRAEREEARRERREUNURE 


rtc_ext: .equ 82000022h 7Place to put address 
; of list of functions 
+ for each clock tick 

motor on: .equ 82000020h *Disk motor timeout 


; RUERRAREARERUERRRREREWEERERURRRARCHRARERABRRERERREERARNE 
ow 
é‘ 


7* Global declarations 


-¥* 
' 


; PEW RRETRHATRRENAEARRAAARAEDUERUKENRURERERNRRRENN HAH 


-global _trapinit 
-Global _trapvec 
-Jlobal trap 


-Global xfarsc 


AHAMERERAERARRHRERERERERREAHRARERARAUAREURECMRERERARAHH 


System Call and General Trap Handler And Dispatch 


It is asaumed that the system runs 
non-segmented on a segmented CPU. 


trap is jumped to segmented, with the 
Ollowing information on the stack: 


“oe 5p Se “2 we “6 te te Ne 


weet © Re RHEE lee Ue 


trap type: WORD 


reason: WORD 
few: WORD 
pc: LONG 


The trap handler is called as a subroutine, 
with all registers saved on the stack, 

IN SEGMENTED MODE. This allows the trap 
handler to be in another segment (with some 
care). This is useful mainly to the debugger. 


All registers except rrO are also passed 
intact to the handler. 


CS a eS ee, ee ee ee! et ee et ee) ee? eT ee 2 


RAM WERAAAERARHKRARERARERRERARARKRARRARAEREHRTRUHKRRREARED 


“> 
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Listing B-9. 


@rl4,@rl4 


rlS,#30 
@rl4,r0,#14 
rl,NSP 
nrl4(ri8).r1i4 
nris(:15) 


wl 
nme 


zl, #SCOTRAP 


check a 


rl,#2 


rr0,_trapvec(rl) 


rroQ 
_trap ret 


@rlS,rro 


@rl4,rro 


(continued ) 


push caller state 


go nonsegmented 


trap* now in ri 
System cail? 
no 


yes: map it 


dispatch 


z@ro -- no action 
else call seq @rr0 
(done via kiudge) 


jp @rrod 
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Listing B-9. (continued) oa, 

trap_ret: treturn from trap or interrupt 

NONSEG 

ld el,nrlS(r15) ? pop state 

ld rl4,nr14(r15) 

ldetl NSP, rl . 

SEG ; gO segmented for the iret. 

ldm rQ,@rl4, #14 

add el5, #32 

iret 7 return from interrupt 


t ARRANCAR AHRERERERERRRAD LEU RLEEKRUUHEHAAR HEHEHE 

:* 

?* Assorted Trap Handlers 
* 


: 
: BRERA RARREERARREAARRRABRBRUENEREHTEEHREMANLRERREET 


¢ 


epu_ trap: 
push Q@rl4, #EPUTRAP 
jr _°rap 
pi_trap: 
push Qrl14, #PITRAP 
jr ._ trap 
seg _trap: 
push @rl4, 4SEGTRAP 
jr tap 
ami trap: 
push arl4, ¢NMITRAP 
jr rap 
-if LOADER 
-@lse ; not used in Loader Sios 
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ba 
3) 
Ww 
x. 
"4 
te 
‘t 
a 
1] 
oe 
w 
2 | 


Listing B-9. (continued) 


2 te wee EEE ETT EES TST ee Tere Terk ee 


. ® 
, 


>* 310s system call handler 


Die bpeae eRe ERR RRERALAALASLRAAR AAR RRR RRA RR RRR RRR Re eee 


Sloss¢e: 


3sé6c 


Ck: 


;call bios . 
NONSEG 
; £3 = operation code 
> sr4= Pl 
: rr6é= P2 
ld r0, sefew+é(r15) : if caller nonseg, normal 
and rQ, #0C000h 


5° nz sed_ok 
—_ 


iu 
az 
® 
5 
o 
a. 
i. 
a 
o 
re) 
q? 
a 
a 
i 
A 
w) 


1a r4, seseg¢r4 (215) 
id r6,r4 


pushi @rlS,rr6 
pushl @rl5,rré 


push @rlS,r3 
; call C progran 
call bios 
; clean stack & return 
ada ri8S,#10 
1él er6éeé(r135),rr6 : with lone in rr6 
SEG 
ret 
-endif 
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Listing B-9. (continued) 


* 


oe RRR MARRWKHRAREEHRAARKRRAARANRARRANAHRUERARRRKRHERREAEEE 


- | 

:* Context Switch System Call 

:* xfer( context) 

:* long context; 

** context is the physical (long) address of: 
:* £0 

7” ne 

7* rl3 

7* rl4 (normal r14) 

;* rlS (normal r1l5) 

7* ignored word 

;* FCW (had better specify normal node) 
r*: PC segment 

7* PC offset 


?* The system stack pointer is not affected. 
* Control never raturns to the caller. 


REMASTER AEWEUAEAAAWEUAEATEACERACEAAEAARAEREARHEAARUTAREEUH 


xfersc: ) renter here from system call 
SEG 


; build frame on system stack 


; when called from system call, the trame replaces 
; the caller's context, which will never be resumed. 


ine rls, #4 ?discard return addr 
ldl erd,cril4 move context 

Ld r2,%FRAMESZ/2 | Ss 

idirc @r4,9r6, 72 

jr _°rTap ret itestore context 
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Listing B-9. (continued) 


ee ee eee eee ee eee ee eee eee Ree EE RRR ES Eee SRR ES 


;"™ motor co == check if disk motor szill running. 

:* Entered each clock tick. Invalidates 
:* track butfer when motor stops 

: (Note: runs segmented) 


% 


, 
i ii oe oe ee ee eee eee eee Ree eRE EER LEE SSP eee Se 2d 
’ 


_meotar oc: 
idi rr4,#motor_ on ;Motor running? | 
test @r4 
ret nz ?¥Yes: do nothing 
ldar 64,9 
lé r5,%# tbdirty : Is srack buff dirty? 
test @r4 : Yes... 
ret nz : -..Feturn without invalidating 
ic r5,.?_ ctpvalid 
eir ers. *No: mark track buffer 
ret 7 anvalid 


Table of functions run each real time clock tick 


- long a1 *Will contain motor_c 
.word OfsE :Terminator 


2 POWERS EEE CTE FEES TS REESE EE TREES ETE 


.* 
? 


i" trapinit -- initialize trap system 


.* 


eee ee ee eee eee eee ee eee RELL L ESLER SEE LS 


o ® 


/* PSA (Program Status Area) structure 
$size of a program status entry 


Ds -@qu 8 ; 
, ; “~~ seaqmented --~ 


= 
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Listing B-9. (continued) 


EPU trap offset 


Psa_epu .equ l*ps 
priviledged instruction trap 


psa_prv .equ 2*ps 


psa_sc .equ 3*ps ; system call trap 
pga_seg .equ 4"ps ? segmentation trap 
psa_nmi .equ 5*ps ? non-maskable interrupt 
paa_nvi .equ 6*ps ; none-vectored interrupt 
psa_vi_ .equ 7*ps ?; vectored interrupt 
psa_vec .equ paa_vit(ps/2) ; vectors 
_trapinit: 


; initialize trap table 


lda r2, trapvec 
ld r0, #NTRAPS 
subl rr4,ce4 

clrtraps: 
ldl $r2,rr4% 
ine r2,%#4... 
djnz r0,clrtrapa 
ld. r2,_sy38eg 
if ER as 
-else mmot used by Leader Bios 
lda r3,bioss¢ -. 
ldl _trapvee+(SLOS_SC+SCOTRAP)*4,rr2 
-endift 
lda c3,mensc 
Lai trapvect(MEM SC+SCOTRAP)*4, rr2 
.if LOADER 
.else 7; not used by Leader Bios 
lida r3,fp_epu 
Lal _trapvectEPUTRAP*4 ,rr2 
-andif 

; initialize some PSA entries. 

; ero PSA entry: FCW (ints ENABLED) 

; rr2 PSA entry: PC 

; rr4 -> PSA slot 
ldl cr4, psap 
SEG 
Ldl rxrQ, #0000D800h ; traps here 


es; 
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Listing B-9. (continued) 


add r3,#ps ; EPU trap 

ldar r2,epu_trap 

ldm @r4,r0, #4 

add r5,#ps ; Priviledgea Inst 
ldar 22,pl_crap 

ldm @r4,r0, #4 

add rS,#ps ; System Call 

idar r2,sc_trap 

ldm @r4,r0, #4 

add c5,#ps : segmentation 
ldar r2,seg_trap 

lam @r4,r0, #4 

ada r8,%ps : Non-Maskable Int. 
dar r2,ami_irap 

idm @r4,r0, 24 


Set up Real-Time Clock external call loc 


idar r2,_motoric 
lidar r4,_ticktab 
ldl @r4,rr2 

idl rr2,#rte_ext 
idl @r2,r4r4 
NONSEG 

ret 


PEO SECT STS EET TREES TEETER E TT HREO TTP TESTE TET TTT ee Pes 


tt tbh eee Ree ee RRR RE RRR RRR RRR RRR RAE RRA RE RAR RAR RA SEE SE DS 
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Listing B-10. System—-Call Interface 


peewweeweew gyscall.skn cpm.sys + cpmlidr.sys ******** 
:* Copyright 1964, Digital Rersarch Inc. 
7* System Call interface for CP/M-8000(tm) 8I0S 


820927 S. Savitzky (Zilog) -— created. 
840815 2. Weiser (DRI) — conditional assembly 


eT ey ee 


** 8 & 


_text: .sect* 


: PACER EA HARARE ERAREURENHRRHAREERT ERAS 


;* NOTE 

i* The following systam call interface routines 
7* are designed to be called from non-segmentad 
;* C programs. 


* 

* Addresses are passed as LONGs. 
* . 

w 


RHE RAHA EAE RRR RERETAUWTERARAWEHURERHEERE 


-global xfer 
-gGlobal _mem_cpy 
-global _map_adr 
-global bios 


-global _bdos 
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ey 


«ot 
ot 
. * 


. # 


x 
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Listing B-10. (continued) 


new ree Teer reer Tree eee ee eee eee CET eT TE TeT Se Ee 


Tontext Switch Routine 


xfer (context) 
long context; 


context is the physical (long) address of: 
rO 
rl3 
rli4 (normal r14) 
rl5 (normal rl5) 
ignored word 
FCW (had better specify normal mode) 
PC segment 
PC offset 


The system stack pointer is not attected. 


Santrel never returns to the caller. 


CSTE TST TT KTP ETEK ETE Te ET Te wee wee ees 


fer: 
lal rr6,ARGi(r15) 
ldi rr4,%#=-2 
subl rr2,rr2 
sc #XFER_SC 
ret 


Q 
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Listing B~-10. (continued) 


: ROKR ARERRERRUEHETERHEEEREHAREREHERUTRRHRRKEHENH HE 


:* System/User Memory Access 


_mem_ cpy( source, dest, length) 

19 source, dest, Length; 

_map_ a a addr, space) -> paddr 
long addr; int space; 


_map_adr( addr, -1) 
sets user segment # from addr. 


_map_adr( addr, -2) 
transfer to context block at addr 


system call: nem_cpy 


rr6: source 

er4: dest 

rr2: length (0 < Length ‘= 64K) 
returns = 


registers unchanged 


system call: map_adr 


x*256 return segmented instruction address, 
not data access address 


FFFF seat user-space segment from address 


ee eee eee eee eee eee eke eke ee 


? rr6é: Logical addr 

; eS: apace code 

; 4: ignored 

; rr: 0 

: returns 

? rxr6: physical addr 
;* space codes: 

; Q: caller data 

; Le: caller program 
; 2: system data ~ 

: 3: system program 
; 4: TPA data 

; $: TPA prograns 


ROSA RR REA ERAERRARARETHERBAREUEHEUERWWHRAAERE HDNET 


- 


8-963 


~ 
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Listing B-10. (continued) 


_mem cpy: 7cOpy memory C subroutine 
lal rr6é,ARG1(r15) 
ldl rr4,ARG3(r15) 
ldl rr2,ARG5(215) 
sc #MEM_ SC 
ret 
_map_adr: ‘map address C subroutine 
; Re, 
idl rr6é,ARGi (rls) 
ld r5, ARG3(r15) 
subl rr2,rz2 : O length gays map 
s¢ #¢MEM SC 
ret 


~1L LOADER 
-else ; not used by Loader Bios 


«PERE T ER TSKSTREETECT ESET ETE SETS EV TEETH REET TERR ET 
’ 


* long _bies(code, pl, p2) 
;* leng _bdes(code, pl) 
;* ant code: 

* long pl. pa: 


BIOS, BDOS access 


‘ 
- PPP CVP ERECT HERES ETE TTT KEKE wwe eee 
’ 


nies: 
le r3,ARGi (ris) 
ldl rr4,ARG2Z(r15) 
lal rr6,ARG4(7r15) 
sc #BIOS SC 
ret 

dos: 
ld r§,ARG1(r15) 
ldl rr6,ARG2(r1l5) 
ac #BDOS_ SC 
ret. ; 
-endif 


End of Aowendix 8B 


APPENDIX C 
PUTBOOT Utility C Language Source 


Listing C-1. Bootstrap Writer for the Olivetti M20 























/* =/ 
/* ED comcaee ® / 
/*4 ,@/ 
ft CP/M-ZSK(tm) Bootstrap Weiter for che OLIVETTI M20 (28000) 2, 
Fat Copyright 1984, Digital fesearch Inc. Py 
| faeda so pnceeeeteseneanateann emnmsmenenanenenemametamemnieendeaaieael aaa an mae sancenccecemcewccase Mf 


rid 


char ‘copyrt = “CP/M<Z8K(tm) Ver. 1.1, Copyright 1984, Digital esearch [nc.”: 


char *serial © “XXxX-0000-654321": 


/* HISTORY 

ee ; 3 : . 

*e 330801 F. Zletnick (Zilog) -— written 

ve 840824 ctw aodified includes 

“7 940801 rftw aade to look generic 

fd . : j . . 

¢tinelude “portab.h” ws ve ot Q 

tinclude “osif.n® - 7/* epa.h and odos.h ceplaces with °/ 
sinelude weeaio.n" _-/* ogif.h 03°15-44 ctw e/ 
tinelude ah" 

tinelude “xout.h” 

tdefine CDATA 0 /* Parameter for sep_adr() °/ 
tdefine OLRSEC 1 /* Parameter for S163 write call */ 
tdetine SETTRK 10 /* BIOS Function 10 = Set Track */ 
sdefine SETSEC 11 7 /* 8108 Function 1L * See Sector */ 
tdefine SSETDMA 12 /* 8208S Function 12 5 See OMA Addr °/ 
tdeftine WSECTOR 14 . 7* aI0S Function 14 © Write Seator °/ 
XADDR  ohysdlir: /* Segmented address oft dirpufs “/ 
struct dpps idpp: /* Oisk Parameter Block “/ 
struct 5108 para ibp: /* 3103 param block tor 8D0S call $0*/ 
XADOR physibp: /* physical address of ibp structure” / 


extern long aap_adr(); /* Function to return physical addr °/ 
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Listing C-l. (continued) 


tdefine BPLS 228 /* Bytes per logical sector */ 
#-ietine APS 256 /* Bytes per sector */ 

@iaecine BPSO 328 /* Bytes per sector, trk O */ 
#jefine SPT 16 /* sectors per track °/ 

t$iueline USPT 32 {* wegical sectors per track */ 
auetine SYSTRKS 2 /* Number of poor tracks *°/ 
tdetine SYSSIZE SPT*BPS*SYSTRKS ‘" Max size of bootstrap */ 
agefine STARTRK i /* Dracx numper to start an */ 
FILE “fin; 

taas syscode( SYSSIZE}; /* Hold the entire bootstrap here! 
thar “system = “CPMLDOR.SYS” - /* Nama of the prog to poor °/ 


struct x_hdr xh: 
struct x sg xs: 
Lat dsxnug; /* Drive mumper 0-15 = A@WP ts 


ma .alargc,argv> 


aot arge: 
omar *arav(i: 

reqister int ae 3, SP? 

register char *p: 

20ng ¢size: 

ant curdak: ‘* Good 25 remember, & reset*™/ 


rf(arge '=# 3) usaget): 
Systems = *“~rargv: 


ii( (deknum @ ""erargy - ‘a')} <« O 1] deknum > 15) [ 
printf("“putpoot: Illegal drive code ten”. ‘argv[0)); 
exit(l): 


J 
curdek = ret cdisk(): 
uwG@t_dpbimap_adr(ilong) &idph. COATA)): /* Physaddr of idpp */ 
if( (fin = fopenb(svstem, “2")) #9 NULL) | 
pranci("putmbect: Can‘: open bootstrap f:le ten", aysten): 
@exie(i): 


fsize = OL: 
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Listing C-1l. (continued) 


/* ceed ¢ile header */ 


= (char *) &xh; 
for (4 = Or i ¢ sizeof(xzh): itr) 
"pe = (char) gete( fin): 


/* vead and count segaent headers to get file size */ 
for (i = ne i < xh.z_nseg? it) 
= (char *)"axas 
for 3 = 2? 4 ¢ siz@ot(xa): j++) 
= (char) gete( fin): 
Lf( xa.x_sgityp i= X_ $G_8SS && xa.x_sg_typ i™ X_SG_STK) 
ize += xs.x 9. lan? 


} 
if (tsize >» SYSSIZE) [ 
prinef( "Bootstrap too bign"): 
exit(l); 
else 
printt(“Boocatrap file is 31d bytesn”, fsize);: 
Pp = syscode; 


/* If any other special information is needed: ac the beginning of the °/ 
/* system track of the Loader load them into the syscode area cow. “s 


At this point. 


while( fsize-—) ( 
if( (ce = gees(fin)) = gor) [ 


C PUTBOOT Utility C Language Source 


¥ 


prtinet( "Unexpected SOP in ts. 4d Lettn", system, tsizea): 


exite(l); a : ree 
‘ore acs ; we - 


putboot( syacode): 
printf("Seotscrap hae been written.a"): 


_8@1_disk( curdsk); /* veselect originals disk*/ 


Yow wa use direct 


the antire bootstrap prograag code and data has Seen loaded 
into the array named “syscode", preceded by a sunch of PCOS garbage 
which the Olivetti beer PROM expects co find there. 
8I0S cails to weite the syseede array ouc to the groper arte on disk. 
For the Olivecti, this is tracks | and 2. since track 0 is special. 
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Listing C-l. (conatinued) 


nusb2et( code) 


ona “code: 
register int a? /* Bandy index */ 
register int nlaecs: /* % logical sectors in boor’/ 
register char “p: /* ptr to next part of code *- 
int track: , /* Current track ‘ys 
ant sector: /* Current sector °/ 


physidp = mas _adr( (long) &ibo. CBATA ); 
Alsecs = SYSTRKS * LSPT: /* gaze / log secs per trk °*/ 
/* Pause for the user to insert disk */ 
pause(drvname); */ 
‘* ?ut code here when trkO sectO are special */ 
32 8 _sel_d25k far the drive you want *°/ 
tnen Gall puthlk ¢terkGQ, seesO, and she address cf sector information °*/ 
p * code: 
for{: # O: 3: ¢ nisees: ie) : 
track = STARTRK - ./.5PT: 
sector = 1ULart: 
puecalk( track, sector. pi: 
> ~™ BPLS: 


io 


o# 


1” 


¥ 


Function tO select a given crack for writing on. on the current disk. 
“ Maxes use of the SDOS direct BIOS call to :ssve Bios function 10. 
as 


Lat ni 
ibp.ceq = SETTRK: /* BLOS request number 10 */ 
ipp.pl * (lang) a: /* parameter = track # */ 
_bios_call( physibp ): /* Pass seg ibp address */ 
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Listing C-1. (continued) 


/* 
oj eeion co put block i of the boot track. 
e 


putblk(trk, sec, addr) 
int trk, sea? 

oo addr? 
register inet ar 


_8@1_disk(dsknum); /* select as current disk */ 
Secerk(erk); . 
a = sea * Lt /* sector number */ 
ibp.ceq = SETSEC; /* BIOS request number 11 */ 
«pl = (long) az /* pacameter = sector # */ 
_bioa_call( physibp ): /* Pasa seq ibp addrass °/ 


/* Sector is now set: now sec dma address. */ 
ibp. req © SSETDMA; /* 3108 Requesc number 12 */ 
ibp-pl = map_adz({ (long) addr. CDATA); 
J/* garam * seq address. of Wo buffers */ 
ies _cail( physibp ); /* Casi S108 */ 


/* Yow can do « write */ 


wd 


dbp. ceaq = WSECTOR: /* ar0s Request number 14 */ 
ibp.~l = OLRSEC;: “aft SompLece ‘weite immediately */ 
_vion_call( phyaibp | dro ‘7* Bo itt */ 

- | . 

a the user invoked us wien the: wrong auaber at age... 

a 
yeage() 

printt( “Useger pucbooe tfilenage> <drivecadasn"): 
exit(h): 


End of Appendix C 
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